[commit: ghc] master: KQueue: Eliminate redundant import (2f2622c)
git at git.haskell.org
git at git.haskell.org
Mon Mar 13 18:34:45 UTC 2017
Repository : ssh://git@git.haskell.org/ghc
On branch : master
Link : http://ghc.haskell.org/trac/ghc/changeset/2f2622c601136a62e465dcd3b3b02db8156734b6/ghc
>---------------------------------------------------------------
commit 2f2622c601136a62e465dcd3b3b02db8156734b6
Author: Ben Gamari <ben at smart-cactus.org>
Date: Sun Mar 12 18:06:34 2017 -0400
KQueue: Eliminate redundant import
At long last fixes OS X build.
>---------------------------------------------------------------
2f2622c601136a62e465dcd3b3b02db8156734b6
libraries/base/GHC/Event/KQueue.hsc | 7 +++----
1 file changed, 3 insertions(+), 4 deletions(-)
diff --git a/libraries/base/GHC/Event/KQueue.hsc b/libraries/base/GHC/Event/KQueue.hsc
index 7476c93..f26d199 100644
--- a/libraries/base/GHC/Event/KQueue.hsc
+++ b/libraries/base/GHC/Event/KQueue.hsc
@@ -27,9 +27,8 @@ available = False
#else
import Data.Bits (Bits(..), FiniteBits(..))
-import qualified Data.Int as I
+import Data.Int
import Data.Word (Word16, Word32)
-import Data.Int (Int16)
import Foreign.C.Error (throwErrnoIfMinus1, eINTR, eINVAL,
eNOTSUP, getErrno, throwErrno)
import Foreign.C.Types
@@ -189,9 +188,9 @@ newtype Flag = Flag Word16
}
#if SIZEOF_KEV_FILTER == 4 /*kevent.filter: int32_t or int16_t. */
-newtype Filter = Filter I.Int32
+newtype Filter = Filter Int32
#else
-newtype Filter = Filter I.Int16
+newtype Filter = Filter Int16
#endif
deriving (Bits, FiniteBits, Eq, Num, Show, Storable)
More information about the ghc-commits
mailing list