Permalink
Browse files

Made some fields strict so they can be unpacked in the constructor

  • Loading branch information...
1 parent 1c6a5f7 commit 528092c115e9346a45bc585abb042e4e0d72d158 @tibbe tibbe committed Dec 23, 2009
Showing with 8 additions and 8 deletions.
  1. +8 −8 src/System/Event/KQueue.hsc
@@ -27,12 +27,12 @@ newtype EventQ = EventQ { unEventQ :: CInt }
deriving (Eq, Show)
data Event = Event {
- ident :: CUIntPtr
- , filter :: Filter
- , flags :: Flag
- , fflags :: CUInt
- , data_ :: CIntPtr
- , udata :: Ptr ()
+ ident :: !CUIntPtr
+ , filter :: !Filter
+ , flags :: !Flag
+ , fflags :: !CUInt
+ , data_ :: !CIntPtr
+ , udata :: !(Ptr ())
} deriving Show
instance Storable Event where
@@ -92,8 +92,8 @@ combineFilters :: [Filter] -> Filter
combineFilters = Filter . foldr ((.|.) . unFilter) 0
data TimeSpec = TimeSpec {
- tv_sec :: CTime
- , tv_nsec :: CLong
+ tv_sec :: !CTime
+ , tv_nsec :: !CLong
}
instance Storable TimeSpec where

0 comments on commit 528092c

Please sign in to comment.