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/ByteString.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/ByteString.hsc')
| -rw-r--r-- | System/Posix/Terminal/ByteString.hsc | 11 |
1 files changed, 6 insertions, 5 deletions
diff --git a/System/Posix/Terminal/ByteString.hsc b/System/Posix/Terminal/ByteString.hsc index a667c8a..ad2dd26 100644 --- a/System/Posix/Terminal/ByteString.hsc +++ b/System/Posix/Terminal/ByteString.hsc @@ -1,4 +1,3 @@ -{-# OPTIONS_GHC -fno-warn-unused-imports #-} #ifdef __GLASGOW_HASKELL__ {-# LANGUAGE Trustworthy #-} #endif @@ -75,8 +74,10 @@ module System.Posix.Terminal.ByteString ( import Foreign import System.Posix.Types import System.Posix.Terminal.Common -import System.Posix.IO.ByteString -import Data.ByteString.Char8 as B +#ifndef HAVE_OPENPTY +import System.Posix.IO.ByteString (defaultFileFlags, openFd, noctty, OpenMode(ReadWrite)) +import Data.ByteString.Char8 as B ( pack, ) +#endif import Foreign.C hiding ( throwErrnoPath, @@ -185,9 +186,9 @@ foreign import ccall unsafe "__hsunix_unlockpt" c_unlockpt :: CInt -> IO CInt #else c_grantpt :: CInt -> IO CInt -c_grantpt _ = return (fromIntegral 0) +c_grantpt _ = return (fromIntegral (0::Int)) c_unlockpt :: CInt -> IO CInt -c_unlockpt _ = return (fromIntegral 0) +c_unlockpt _ = return (fromIntegral (0::Int)) #endif /* HAVE_PTSNAME */ #endif /* !HAVE_OPENPTY */ |