diff options
author | Herbert Valerio Riedel <hvr@gnu.org> | 2013-10-12 23:49:25 +0200 |
---|---|---|
committer | Herbert Valerio Riedel <hvr@gnu.org> | 2013-10-12 23:49:25 +0200 |
commit | e968172cb0c9f4fc653c775faf3ecb661f5b1948 (patch) | |
tree | 14451b438f7aa84a75c4f1f94cceb2bea3959ffc /System/Posix/Terminal/Common.hsc | |
parent | 7b9044abd826ef1e0f91a1ce5922ed1303e1f2a0 (diff) |
Make `-Wall` clean and drop `-fno-warn-unused-imports`
CPP conditional code sections have been carefully taken into account
while performing this warning cleanup. Most `OPTIONS_GHC` declarations
could be dropped (now only a lonely `{-# OPTIONS_GHC -fno-cse #-}`
remains in `Posix.Signals`).
Signed-off-by: Herbert Valerio Riedel <hvr@gnu.org>
Diffstat (limited to 'System/Posix/Terminal/Common.hsc')
-rw-r--r-- | System/Posix/Terminal/Common.hsc | 14 |
1 files changed, 2 insertions, 12 deletions
diff --git a/System/Posix/Terminal/Common.hsc b/System/Posix/Terminal/Common.hsc index 2a07e28..4075ba3 100644 --- a/System/Posix/Terminal/Common.hsc +++ b/System/Posix/Terminal/Common.hsc @@ -1,4 +1,3 @@ -{-# OPTIONS_GHC -fno-warn-unused-imports #-} #ifdef __GLASGOW_HASKELL__ {-# LANGUAGE Trustworthy #-} #endif @@ -69,22 +68,13 @@ module System.Posix.Terminal.Common ( import Data.Bits import Data.Char -import Foreign.C.Error ( errnoToIOError, throwErrnoIfMinus1, - throwErrnoIfMinus1_, throwErrnoIfNull ) -#ifndef HAVE_PTSNAME -import Foreign.C.Error ( eNOSYS ) -#endif -import Foreign.C.String ( CString, peekCString, withCString ) +import Foreign.C.Error ( throwErrnoIfMinus1, throwErrnoIfMinus1_ ) import Foreign.C.Types import Foreign.ForeignPtr ( ForeignPtr, withForeignPtr, mallocForeignPtrBytes ) -import Foreign.Marshal.Alloc ( alloca ) import Foreign.Marshal.Utils ( copyBytes ) -import Foreign.Ptr ( Ptr, nullPtr, plusPtr ) +import Foreign.Ptr ( Ptr, plusPtr ) import Foreign.Storable ( Storable(..) ) -import System.IO.Error ( ioError ) import System.IO.Unsafe ( unsafePerformIO ) -import System.Posix.IO ( OpenFileFlags(..), OpenMode(..), defaultFileFlags, - openFd ) import System.Posix.Types -- ----------------------------------------------------------------------------- |