From e968172cb0c9f4fc653c775faf3ecb661f5b1948 Mon Sep 17 00:00:00 2001 From: Herbert Valerio Riedel Date: Sat, 12 Oct 2013 23:49:25 +0200 Subject: 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 --- System/Posix/Terminal/ByteString.hsc | 11 ++++++----- 1 file changed, 6 insertions(+), 5 deletions(-) (limited to 'System/Posix/Terminal/ByteString.hsc') 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 */ -- cgit v1.2.3