import GHC.Show (Show(..))
import GHC.List (filter, null)
import GHC.Show (Show(..))
import GHC.List (filter, null)
eventIs :: Event -> Event -> Bool
eventIs (Event a) (Event b) = a .&. b /= 0
instance Show Event where
show e = '[' : (intercalate "," . filter (not . null) $
eventIs :: Event -> Event -> Bool
eventIs (Event a) (Event b) = a .&. b /= 0
instance Show Event where
show e = '[' : (intercalate "," . filter (not . null) $
- [evtRead `so` "evtRead", evtWrite `so` "evtWrite"]) ++ "]"
+ [evtRead `so` "evtRead",
+ evtWrite `so` "evtWrite",
+ evtClose `so` "evtClose"]) ++ "]"