1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
|
--- ./src/System/KQueue.chs.orig 2012-01-03 14:00:32.000000000 +0100
+++ ./src/System/KQueue.chs 2012-01-27 07:17:17.000000000 +0100
@@ -21,6 +21,7 @@
#include <sys/time.h>
#include <sys/event.h>
+#include "MachDeps.h"
import Control.Applicative ( (<$>), (<*>) )
import Control.Exception ( Exception, throwIO )
@@ -62,11 +63,19 @@
-- | A kernel event.
data KEvent = KEvent
+#if SIZEOF_HSWORD == 4
+ { ident :: CUInt -- ^ The identifier for the event, often a file descriptor.
+#else
{ ident :: CULong -- ^ The identifier for the event, often a file descriptor.
+#endif
, evfilter :: Filter -- ^ The kernel filter (type of event).
, flags :: [Flag] -- ^ Actions to perform on the event.
, fflags :: [FFlag] -- ^ Filter-specific flags.
+#if SIZEOF_HSWORD == 4
+ , data_ :: CInt -- ^ Filter-specific data value.
+#else
, data_ :: CLong -- ^ Filter-specific data value.
+#endif
, udata :: Ptr () -- ^ User-defined data, passed through unchanged.
} deriving (Show, Eq)
@@ -122,8 +131,10 @@
, NoteExit = NOTE_EXIT
, NoteFork = NOTE_FORK
, NoteExec = NOTE_EXEC
+#ifndef __FreeBSD__
, NoteSignal = NOTE_SIGNAL
, NoteReap = NOTE_REAP
+#endif
};
#endc
|
