From 38d445e5830fb53efd7133f688b37d85e639d23e Mon Sep 17 00:00:00 2001
From: Herbert Valerio Riedel <hvr@gnu.org>
Date: Sun, 31 Jan 2016 09:31:09 +0100
Subject: [PATCH] Delete some trailing whitespaces
---
System/Posix.hs | 16 ++++++++--------
System/Posix/ByteString.hs | 2 +-
System/Posix/Env.hsc | 2 +-
System/Posix/IO.hsc | 6 +++---
System/Posix/IO/ByteString.hsc | 6 +++---
System/Posix/SharedMem.hsc | 16 ++++++++--------
System/Posix/Temp.hsc | 2 +-
System/Posix/Temp/ByteString.hsc | 4 ++--
8 files changed, 27 insertions(+), 27 deletions(-)
diff --git a/System/Posix.hs b/System/Posix.hs
index b5b221a..de7d08c 100644
--- a/System/Posix.hs
+++ b/System/Posix.hs
@@ -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)
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
--
GitLab