X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=System%2FEvent%2FKQueue.hsc;h=4a86435209458d11d46e81c62cf9e2d87278fe54;hb=41e8fba828acbae1751628af50849f5352b27873;hp=832a3a8d12792e9a89c6c371ebd56a4d73229172;hpb=bf1530efdee344ee89cac1e37cb208222b4edff2;p=ghc-base.git

diff --git a/System/Event/KQueue.hsc b/System/Event/KQueue.hsc
index 832a3a8..4a86435 100644
--- a/System/Event/KQueue.hsc
+++ b/System/Event/KQueue.hsc
@@ -1,5 +1,10 @@
-{-# LANGUAGE ForeignFunctionInterface, GeneralizedNewtypeDeriving,
-    NoImplicitPrelude, RecordWildCards #-}
+{-# LANGUAGE CPP
+           , ForeignFunctionInterface
+           , GeneralizedNewtypeDeriving
+           , NoImplicitPrelude
+           , RecordWildCards
+           , BangPatterns
+  #-}
 
 module System.Event.KQueue
     (
@@ -278,7 +283,7 @@ toEvent :: Filter -> E.Event
 toEvent (Filter f)
     | f == (#const EVFILT_READ) = E.evtRead
     | f == (#const EVFILT_WRITE) = E.evtWrite
-    | otherwise = error $ "toEvent: unknonwn filter " ++ show f
+    | otherwise = error $ "toEvent: unknown filter " ++ show f
 
 foreign import ccall unsafe "kqueue"
     c_kqueue :: IO CInt