aboutsummaryrefslogtreecommitdiffhomepage
path: root/System/Posix/Terminal/Common.hsc
diff options
context:
space:
mode:
authorGravatar Herbert Valerio Riedel <hvr@gnu.org>2013-10-12 23:49:25 +0200
committerGravatar Herbert Valerio Riedel <hvr@gnu.org>2013-10-12 23:49:25 +0200
commite968172cb0c9f4fc653c775faf3ecb661f5b1948 (patch)
tree14451b438f7aa84a75c4f1f94cceb2bea3959ffc /System/Posix/Terminal/Common.hsc
parent7b9044abd826ef1e0f91a1ce5922ed1303e1f2a0 (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.hsc14
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
-- -----------------------------------------------------------------------------