Skip to content
Snippets Groups Projects
Commit 38d445e5 authored by Herbert Valerio Riedel's avatar Herbert Valerio Riedel :man_dancing:
Browse files

Delete some trailing whitespaces

parent d958007b
No related branches found
No related tags found
No related merge requests found
......@@ -5,7 +5,7 @@
-- Module : System.Posix
-- 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)
......@@ -60,7 +60,7 @@ Here we detail our support for the IEEE Std 1003.1-2001 standard. For
each header file defined by the standard, we categorise its
functionality as
- "supported"
- "supported"
Full equivalent functionality is provided by the specified Haskell
module.
......@@ -69,7 +69,7 @@ functionality as
The functionality is not currently provided.
- "to be supported"
- "to be supported"
Currently unsupported, but support is planned for the future.
......@@ -131,17 +131,17 @@ Unsupported interfaces
aio.h
assert.h
complex.h
cpio.h
ctype.h
cpio.h
ctype.h
fenv.h
float.h
fmtmsg.h
fnmatch.h
ftw.h
glob.h
iconv.h
inttypes.h
iso646.h
iconv.h
inttypes.h
iso646.h
langinfo.h
libgen.h
locale.h (see System.Locale)
......
......@@ -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)
......
......@@ -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)
......
......@@ -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 }
......@@ -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 }
......@@ -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
......
......@@ -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
......
......@@ -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
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment