X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=System%2FEvent%2FControl.hs;h=635d864111315bbd92241d23a0c367e888e9a3eb;hb=41e8fba828acbae1751628af50849f5352b27873;hp=75a5ad0d5145d880e8047cf62bb54133245ff026;hpb=9520c5735e69668a33013c36f85152a1ef656b8d;p=ghc-base.git

diff --git a/System/Event/Control.hs b/System/Event/Control.hs
index 75a5ad0..635d864 100644
--- a/System/Event/Control.hs
+++ b/System/Event/Control.hs
@@ -1,5 +1,9 @@
-{-# LANGUAGE CPP, ForeignFunctionInterface, NoImplicitPrelude,
-    ScopedTypeVariables #-}
+{-# LANGUAGE CPP
+           , ForeignFunctionInterface
+           , NoImplicitPrelude
+           , ScopedTypeVariables
+           , BangPatterns
+  #-}
 
 module System.Event.Control
     (
@@ -27,7 +31,6 @@ import Control.Monad (when)
 import Foreign.ForeignPtr (ForeignPtr)
 import GHC.Base
 import GHC.Conc.Signal (Signal)
-import GHC.Num (Num(..))
 import GHC.Real (fromIntegral)
 import GHC.Show (Show)
 import GHC.Word (Word8)