[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