-{-# LANGUAGE ForeignFunctionInterface, GeneralizedNewtypeDeriving,
- NoImplicitPrelude, RecordWildCards #-}
+{-# LANGUAGE CPP
+ , ForeignFunctionInterface
+ , GeneralizedNewtypeDeriving
+ , NoImplicitPrelude
+ , RecordWildCards
+ , BangPatterns
+ #-}
module System.Event.KQueue
(
import Data.Int (Int64)
import Data.Word (Word64)
import Foreign.C.Types (CUInt)
+#else
+import Foreign.C.Types (CIntPtr, CUIntPtr)
#endif
#include <sys/types.h>
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