[commit: ghc] ghc-8.2: KQueue: Eliminate redundant import (8728c14)

git at git.haskell.org git at git.haskell.org
Sat Apr 1 00:31:15 UTC 2017


Repository : ssh://git@git.haskell.org/ghc

On branch  : ghc-8.2
Link       : http://ghc.haskell.org/trac/ghc/changeset/8728c140214fd299d9497396948a12de2476df5d/ghc

>---------------------------------------------------------------

commit 8728c140214fd299d9497396948a12de2476df5d
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.
    
    (cherry picked from commit 2f2622c601136a62e465dcd3b3b02db8156734b6)


>---------------------------------------------------------------

8728c140214fd299d9497396948a12de2476df5d
 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