aboutsummaryrefslogtreecommitdiffhomepage
path: root/System/Posix
diff options
context:
space:
mode:
Diffstat (limited to 'System/Posix')
-rw-r--r--System/Posix/ByteString.hs2
-rw-r--r--System/Posix/Env.hsc2
-rw-r--r--System/Posix/IO.hsc6
-rw-r--r--System/Posix/IO/ByteString.hsc6
-rw-r--r--System/Posix/SharedMem.hsc16
-rw-r--r--System/Posix/Temp.hsc2
-rw-r--r--System/Posix/Temp/ByteString.hsc4
7 files changed, 19 insertions, 19 deletions
diff --git a/System/Posix/ByteString.hs b/System/Posix/ByteString.hs
index 7f0b266..22df910 100644
--- a/System/Posix/ByteString.hs
+++ b/System/Posix/ByteString.hs
@@ -5,7 +5,7 @@
-- Module : System.Posix.ByteString
-- Copyright : (c) The University of Glasgow 2002
-- License : BSD-style (see the file libraries/base/LICENSE)
---
+--
-- Maintainer : libraries@haskell.org
-- Stability : provisional
-- Portability : non-portable (requires POSIX)
diff --git a/System/Posix/Env.hsc b/System/Posix/Env.hsc
index 6d7f61b..999daec 100644
--- a/System/Posix/Env.hsc
+++ b/System/Posix/Env.hsc
@@ -8,7 +8,7 @@
-- Module : System.Posix.Env
-- Copyright : (c) The University of Glasgow 2002
-- License : BSD-style (see the file libraries/base/LICENSE)
---
+--
-- Maintainer : libraries@haskell.org
-- Stability : provisional
-- Portability : non-portable (requires POSIX)
diff --git a/System/Posix/IO.hsc b/System/Posix/IO.hsc
index b3f4c84..ec510f7 100644
--- a/System/Posix/IO.hsc
+++ b/System/Posix/IO.hsc
@@ -8,7 +8,7 @@
-- Module : System.Posix.IO
-- Copyright : (c) The University of Glasgow 2002
-- License : BSD-style (see the file libraries/base/LICENSE)
---
+--
-- Maintainer : libraries@haskell.org
-- Stability : provisional
-- Portability : non-portable (requires POSIX)
@@ -63,7 +63,7 @@ module System.Posix.IO (
-- ** Converting file descriptors to\/from Handles
handleToFd,
- fdToHandle,
+ fdToHandle,
) where
@@ -90,4 +90,4 @@ openFd name how maybe_mode flags = do
createFile :: FilePath -> FileMode -> IO Fd
createFile name mode
- = openFd name WriteOnly (Just mode) defaultFileFlags{ trunc=True }
+ = openFd name WriteOnly (Just mode) defaultFileFlags{ trunc=True }
diff --git a/System/Posix/IO/ByteString.hsc b/System/Posix/IO/ByteString.hsc
index d387f0e..2ce5ed6 100644
--- a/System/Posix/IO/ByteString.hsc
+++ b/System/Posix/IO/ByteString.hsc
@@ -8,7 +8,7 @@
-- Module : System.Posix.IO.ByteString
-- Copyright : (c) The University of Glasgow 2002
-- License : BSD-style (see the file libraries/base/LICENSE)
---
+--
-- Maintainer : libraries@haskell.org
-- Stability : provisional
-- Portability : non-portable (requires POSIX)
@@ -63,7 +63,7 @@ module System.Posix.IO.ByteString (
-- ** Converting file descriptors to\/from Handles
handleToFd,
- fdToHandle,
+ fdToHandle,
) where
@@ -90,4 +90,4 @@ openFd name how maybe_mode flags = do
createFile :: RawFilePath -> FileMode -> IO Fd
createFile name mode
- = openFd name WriteOnly (Just mode) defaultFileFlags{ trunc=True }
+ = openFd name WriteOnly (Just mode) defaultFileFlags{ trunc=True }
diff --git a/System/Posix/SharedMem.hsc b/System/Posix/SharedMem.hsc
index a6326a7..ab31764 100644
--- a/System/Posix/SharedMem.hsc
+++ b/System/Posix/SharedMem.hsc
@@ -35,11 +35,11 @@ import Foreign.C
import Data.Bits
#endif
-data ShmOpenFlags = ShmOpenFlags
+data ShmOpenFlags = ShmOpenFlags
{ shmReadWrite :: Bool,
- -- ^ If true, open the shm object read-write rather than read-only.
+ -- ^ If true, open the shm object read-write rather than read-only.
shmCreate :: Bool,
- -- ^ If true, create the shm object if it does not exist.
+ -- ^ If true, create the shm object if it does not exist.
shmExclusive :: Bool,
-- ^ If true, throw an exception if the shm object already exists.
shmTrunc :: Bool
@@ -54,16 +54,16 @@ shmOpen name flags mode =
cflags1 <- return $ cflags0 .|. (if shmReadWrite flags
then #{const O_RDWR}
else #{const O_RDONLY})
- cflags2 <- return $ cflags1 .|. (if shmCreate flags then #{const O_CREAT}
+ cflags2 <- return $ cflags1 .|. (if shmCreate flags then #{const O_CREAT}
else 0)
- cflags3 <- return $ cflags2 .|. (if shmExclusive flags
- then #{const O_EXCL}
+ cflags3 <- return $ cflags2 .|. (if shmExclusive flags
+ then #{const O_EXCL}
else 0)
- cflags4 <- return $ cflags3 .|. (if shmTrunc flags then #{const O_TRUNC}
+ cflags4 <- return $ cflags3 .|. (if shmTrunc flags then #{const O_TRUNC}
else 0)
withCAString name (shmOpen' cflags4)
where shmOpen' cflags cname =
- do fd <- throwErrnoIfMinus1 "shmOpen" $
+ do fd <- throwErrnoIfMinus1 "shmOpen" $
shm_open cname cflags mode
return $ Fd fd
#else
diff --git a/System/Posix/Temp.hsc b/System/Posix/Temp.hsc
index 3984144..711a696 100644
--- a/System/Posix/Temp.hsc
+++ b/System/Posix/Temp.hsc
@@ -78,7 +78,7 @@ mkstemps prefix suffix = do
h <- fdToHandle (Fd fd)
return (name, h)
#else
-mkstemps = error "System.Posix.Temp.mkstemps: not available on this platform"
+mkstemps = error "System.Posix.Temp.mkstemps: not available on this platform"
#endif
#if HAVE_MKDTEMP
diff --git a/System/Posix/Temp/ByteString.hsc b/System/Posix/Temp/ByteString.hsc
index 0e30c6f..f66f847 100644
--- a/System/Posix/Temp/ByteString.hsc
+++ b/System/Posix/Temp/ByteString.hsc
@@ -63,7 +63,7 @@ foreign import capi unsafe "HsUnix.h mkstemps"
c_mkstemps :: CString -> CInt -> IO CInt
#endif
--- |'mkstemps' - make a unique filename with a given prefix and suffix
+-- |'mkstemps' - make a unique filename with a given prefix and suffix
-- and open it for reading\/writing (only safe on GHC & Hugs).
-- The returned 'RawFilePath' is the (possibly relative) path of
-- the created file, which contains 6 random characters in between
@@ -79,7 +79,7 @@ mkstemps prefix suffix = do
h <- fdToHandle (Fd fd)
return (name, h)
#else
-mkstemps = error "System.Posix.Temp.mkstemps: not available on this platform"
+mkstemps = error "System.Posix.Temp.mkstemps: not available on this platform"
#endif
#if HAVE_MKDTEMP
generated by cgit v1.2.3 (git 2.39.1) at 2024-05-22 04:12:02 +0000