[commit: ghc] foldr-to-foldl: Fix warnings on OS X (4c8f073)
git at git.haskell.org
git at git.haskell.org
Wed Jan 11 03:24:33 UTC 2017
Repository : ssh://git@git.haskell.org/ghc
On branch : foldr-to-foldl
Link : http://ghc.haskell.org/trac/ghc/changeset/4c8f0737d77fcdc007ffa4241372ce199a532e2f/ghc
>---------------------------------------------------------------
commit 4c8f0737d77fcdc007ffa4241372ce199a532e2f
Author: Ben Gamari <ben at smart-cactus.org>
Date: Tue Jan 10 16:58:15 2017 -0500
Fix warnings on OS X
>---------------------------------------------------------------
4c8f0737d77fcdc007ffa4241372ce199a532e2f
libraries/base/GHC/Event/Control.hs | 6 +++---
1 file changed, 3 insertions(+), 3 deletions(-)
diff --git a/libraries/base/GHC/Event/Control.hs b/libraries/base/GHC/Event/Control.hs
index 83950c2..9e3940a 100644
--- a/libraries/base/GHC/Event/Control.hs
+++ b/libraries/base/GHC/Event/Control.hs
@@ -35,7 +35,7 @@ import GHC.Conc.Signal (Signal)
import GHC.Real (fromIntegral)
import GHC.Show (Show)
import GHC.Word (Word8)
-import Foreign.C.Error (throwErrnoIfMinus1_, throwErrno, getErrno, eBADF)
+import Foreign.C.Error (throwErrnoIfMinus1_, throwErrno, getErrno)
import Foreign.C.Types (CInt(..), CSize(..))
import Foreign.ForeignPtr (mallocForeignPtrBytes, withForeignPtr)
import Foreign.Marshal (alloca, allocaBytes)
@@ -47,10 +47,10 @@ import System.Posix.Internals (c_close, c_pipe, c_read, c_write,
import System.Posix.Types (Fd)
#if defined(HAVE_EVENTFD)
-import Foreign.C.Error (throwErrnoIfMinus1)
+import Foreign.C.Error (throwErrnoIfMinus1, eBADF)
import Foreign.C.Types (CULLong(..))
#else
-import Foreign.C.Error (eAGAIN, eWOULDBLOCK, getErrno, throwErrno)
+import Foreign.C.Error (eAGAIN, eWOULDBLOCK)
#endif
data ControlMessage = CMsgWakeup
More information about the ghc-commits
mailing list