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 @@ ...@@ -5,7 +5,7 @@
-- Module : System.Posix -- Module : System.Posix
-- Copyright : (c) The University of Glasgow 2002 -- Copyright : (c) The University of Glasgow 2002
-- License : BSD-style (see the file libraries/base/LICENSE) -- License : BSD-style (see the file libraries/base/LICENSE)
-- --
-- Maintainer : libraries@haskell.org -- Maintainer : libraries@haskell.org
-- Stability : provisional -- Stability : provisional
-- Portability : non-portable (requires POSIX) -- Portability : non-portable (requires POSIX)
...@@ -60,7 +60,7 @@ Here we detail our support for the IEEE Std 1003.1-2001 standard. For ...@@ -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 each header file defined by the standard, we categorise its
functionality as functionality as
- "supported" - "supported"
Full equivalent functionality is provided by the specified Haskell Full equivalent functionality is provided by the specified Haskell
module. module.
...@@ -69,7 +69,7 @@ functionality as ...@@ -69,7 +69,7 @@ functionality as
The functionality is not currently provided. The functionality is not currently provided.
- "to be supported" - "to be supported"
Currently unsupported, but support is planned for the future. Currently unsupported, but support is planned for the future.
...@@ -131,17 +131,17 @@ Unsupported interfaces ...@@ -131,17 +131,17 @@ Unsupported interfaces
aio.h aio.h
assert.h assert.h
complex.h complex.h
cpio.h cpio.h
ctype.h ctype.h
fenv.h fenv.h
float.h float.h
fmtmsg.h fmtmsg.h
fnmatch.h fnmatch.h
ftw.h ftw.h
glob.h glob.h
iconv.h iconv.h
inttypes.h inttypes.h
iso646.h iso646.h
langinfo.h langinfo.h
libgen.h libgen.h
locale.h (see System.Locale) locale.h (see System.Locale)
......
...@@ -5,7 +5,7 @@ ...@@ -5,7 +5,7 @@
-- Module : System.Posix.ByteString -- Module : System.Posix.ByteString
-- Copyright : (c) The University of Glasgow 2002 -- Copyright : (c) The University of Glasgow 2002
-- License : BSD-style (see the file libraries/base/LICENSE) -- License : BSD-style (see the file libraries/base/LICENSE)
-- --
-- Maintainer : libraries@haskell.org -- Maintainer : libraries@haskell.org
-- Stability : provisional -- Stability : provisional
-- Portability : non-portable (requires POSIX) -- Portability : non-portable (requires POSIX)
......
...@@ -8,7 +8,7 @@ ...@@ -8,7 +8,7 @@
-- Module : System.Posix.Env -- Module : System.Posix.Env
-- Copyright : (c) The University of Glasgow 2002 -- Copyright : (c) The University of Glasgow 2002
-- License : BSD-style (see the file libraries/base/LICENSE) -- License : BSD-style (see the file libraries/base/LICENSE)
-- --
-- Maintainer : libraries@haskell.org -- Maintainer : libraries@haskell.org
-- Stability : provisional -- Stability : provisional
-- Portability : non-portable (requires POSIX) -- Portability : non-portable (requires POSIX)
......
...@@ -8,7 +8,7 @@ ...@@ -8,7 +8,7 @@
-- Module : System.Posix.IO -- Module : System.Posix.IO
-- Copyright : (c) The University of Glasgow 2002 -- Copyright : (c) The University of Glasgow 2002
-- License : BSD-style (see the file libraries/base/LICENSE) -- License : BSD-style (see the file libraries/base/LICENSE)
-- --
-- Maintainer : libraries@haskell.org -- Maintainer : libraries@haskell.org
-- Stability : provisional -- Stability : provisional
-- Portability : non-portable (requires POSIX) -- Portability : non-portable (requires POSIX)
...@@ -63,7 +63,7 @@ module System.Posix.IO ( ...@@ -63,7 +63,7 @@ module System.Posix.IO (
-- ** Converting file descriptors to\/from Handles -- ** Converting file descriptors to\/from Handles
handleToFd, handleToFd,
fdToHandle, fdToHandle,
) where ) where
...@@ -90,4 +90,4 @@ openFd name how maybe_mode flags = do ...@@ -90,4 +90,4 @@ openFd name how maybe_mode flags = do
createFile :: FilePath -> FileMode -> IO Fd createFile :: FilePath -> FileMode -> IO Fd
createFile name mode createFile name mode
= openFd name WriteOnly (Just mode) defaultFileFlags{ trunc=True } = openFd name WriteOnly (Just mode) defaultFileFlags{ trunc=True }
...@@ -8,7 +8,7 @@ ...@@ -8,7 +8,7 @@
-- Module : System.Posix.IO.ByteString -- Module : System.Posix.IO.ByteString
-- Copyright : (c) The University of Glasgow 2002 -- Copyright : (c) The University of Glasgow 2002
-- License : BSD-style (see the file libraries/base/LICENSE) -- License : BSD-style (see the file libraries/base/LICENSE)
-- --
-- Maintainer : libraries@haskell.org -- Maintainer : libraries@haskell.org
-- Stability : provisional -- Stability : provisional
-- Portability : non-portable (requires POSIX) -- Portability : non-portable (requires POSIX)
...@@ -63,7 +63,7 @@ module System.Posix.IO.ByteString ( ...@@ -63,7 +63,7 @@ module System.Posix.IO.ByteString (
-- ** Converting file descriptors to\/from Handles -- ** Converting file descriptors to\/from Handles
handleToFd, handleToFd,
fdToHandle, fdToHandle,
) where ) where
...@@ -90,4 +90,4 @@ openFd name how maybe_mode flags = do ...@@ -90,4 +90,4 @@ openFd name how maybe_mode flags = do
createFile :: RawFilePath -> FileMode -> IO Fd createFile :: RawFilePath -> FileMode -> IO Fd
createFile name mode 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 ...@@ -35,11 +35,11 @@ import Foreign.C
import Data.Bits import Data.Bits
#endif #endif
data ShmOpenFlags = ShmOpenFlags data ShmOpenFlags = ShmOpenFlags
{ shmReadWrite :: Bool, { 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, 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, shmExclusive :: Bool,
-- ^ If true, throw an exception if the shm object already exists. -- ^ If true, throw an exception if the shm object already exists.
shmTrunc :: Bool shmTrunc :: Bool
...@@ -54,16 +54,16 @@ shmOpen name flags mode = ...@@ -54,16 +54,16 @@ shmOpen name flags mode =
cflags1 <- return $ cflags0 .|. (if shmReadWrite flags cflags1 <- return $ cflags0 .|. (if shmReadWrite flags
then #{const O_RDWR} then #{const O_RDWR}
else #{const O_RDONLY}) 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) else 0)
cflags3 <- return $ cflags2 .|. (if shmExclusive flags cflags3 <- return $ cflags2 .|. (if shmExclusive flags
then #{const O_EXCL} then #{const O_EXCL}
else 0) else 0)
cflags4 <- return $ cflags3 .|. (if shmTrunc flags then #{const O_TRUNC} cflags4 <- return $ cflags3 .|. (if shmTrunc flags then #{const O_TRUNC}
else 0) else 0)
withCAString name (shmOpen' cflags4) withCAString name (shmOpen' cflags4)
where shmOpen' cflags cname = where shmOpen' cflags cname =
do fd <- throwErrnoIfMinus1 "shmOpen" $ do fd <- throwErrnoIfMinus1 "shmOpen" $
shm_open cname cflags mode shm_open cname cflags mode
return $ Fd fd return $ Fd fd
#else #else
......
...@@ -78,7 +78,7 @@ mkstemps prefix suffix = do ...@@ -78,7 +78,7 @@ mkstemps prefix suffix = do
h <- fdToHandle (Fd fd) h <- fdToHandle (Fd fd)
return (name, h) return (name, h)
#else #else
mkstemps = error "System.Posix.Temp.mkstemps: not available on this platform" mkstemps = error "System.Posix.Temp.mkstemps: not available on this platform"
#endif #endif
#if HAVE_MKDTEMP #if HAVE_MKDTEMP
......
...@@ -63,7 +63,7 @@ foreign import capi unsafe "HsUnix.h mkstemps" ...@@ -63,7 +63,7 @@ foreign import capi unsafe "HsUnix.h mkstemps"
c_mkstemps :: CString -> CInt -> IO CInt c_mkstemps :: CString -> CInt -> IO CInt
#endif #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). -- and open it for reading\/writing (only safe on GHC & Hugs).
-- The returned 'RawFilePath' is the (possibly relative) path of -- The returned 'RawFilePath' is the (possibly relative) path of
-- the created file, which contains 6 random characters in between -- the created file, which contains 6 random characters in between
...@@ -79,7 +79,7 @@ mkstemps prefix suffix = do ...@@ -79,7 +79,7 @@ mkstemps prefix suffix = do
h <- fdToHandle (Fd fd) h <- fdToHandle (Fd fd)
return (name, h) return (name, h)
#else #else
mkstemps = error "System.Posix.Temp.mkstemps: not available on this platform" mkstemps = error "System.Posix.Temp.mkstemps: not available on this platform"
#endif #endif
#if HAVE_MKDTEMP #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