X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=System%2FEvent%2FKQueue.hsc;h=4cf6a5ddcb2fe2deb15d68ec2dd56ecf73ea9ad8;hb=a72a7e3363c4f80e0f32906a35f25f112abaf09f;hp=0ab330b3d9e8dc541e1721b7489268d3da893b9c;hpb=b99920eab7fba4e027fd39985840d4e854b8f923;p=ghc-base.git

diff --git a/System/Event/KQueue.hsc b/System/Event/KQueue.hsc
index 0ab330b..4cf6a5d 100644
--- a/System/Event/KQueue.hsc
+++ b/System/Event/KQueue.hsc
@@ -278,7 +278,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