diff options
| author | Ben Gamari <ben@smart-cactus.org> | 2017-03-12 18:06:34 -0400 |
|---|---|---|
| committer | Ben Gamari <ben@smart-cactus.org> | 2017-03-12 18:08:41 -0400 |
| commit | 2f2622c601136a62e465dcd3b3b02db8156734b6 (patch) | |
| tree | c6ecd8ad3a83f9fc718e65ecb60f4e8ab71d3c88 | |
| parent | e5453a0e69911f135c192219189104bd0d2e3b5d (diff) | |
| download | haskell-2f2622c601136a62e465dcd3b3b02db8156734b6.tar.gz | |
KQueue: Eliminate redundant import
At long last fixes OS X build.
| -rw-r--r-- | libraries/base/GHC/Event/KQueue.hsc | 7 |
1 files changed, 3 insertions, 4 deletions
diff --git a/libraries/base/GHC/Event/KQueue.hsc b/libraries/base/GHC/Event/KQueue.hsc index 7476c9333e..f26d199219 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) |