diff options
| author | Ben Gamari <ben@smart-cactus.org> | 2017-03-07 09:31:42 -0500 |
|---|---|---|
| committer | Ben Gamari <ben@smart-cactus.org> | 2017-03-07 13:32:33 -0500 |
| commit | ecb880caea441b6dd7f75a555546e55abe11c233 (patch) | |
| tree | 24c3874301c5e2d2315650a69de5af8103589ae4 | |
| parent | 12ccf767af3373e319b75d5d61fe79df4a389e45 (diff) | |
| download | haskell-ecb880caea441b6dd7f75a555546e55abe11c233.tar.gz | |
base: kevent.filter is signed
I checked both the FreeBSD and Darwin manpages; it's signed in both cases.
This was producing validation failures on OS X due to the new literal
range-check.
| -rw-r--r-- | libraries/base/GHC/Event/KQueue.hsc | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/libraries/base/GHC/Event/KQueue.hsc b/libraries/base/GHC/Event/KQueue.hsc index d6461c2647..0d5350e870 100644 --- a/libraries/base/GHC/Event/KQueue.hsc +++ b/libraries/base/GHC/Event/KQueue.hsc @@ -186,10 +186,10 @@ newtype Flag = Flag Word16 , flagOneshot = EV_ONESHOT } -#if SIZEOF_KEV_FILTER == 4 /*kevent.filter: uint32_t or uint16_t. */ -newtype Filter = Filter Word32 +#if SIZEOF_KEV_FILTER == 4 /*kevent.filter: int32_t or int16_t. */ +newtype Filter = Filter Int32 #else -newtype Filter = Filter Word16 +newtype Filter = Filter Int16 #endif deriving (Bits, FiniteBits, Eq, Num, Show, Storable) |