module IsRequest where import FRequest import DialogueIO hiding (IOError) isRequest :: FRequest -> Bool isRequest FRequest c = case FRequest c of DReq (Select [Descriptor] _) -> Bool False DReq Request _ -> Bool True XReq XRequest _ -> Bool True SReq SocketRequest _ -> Bool True FRequest _ -> Bool False isResponse :: FResponse -> Bool isResponse FResponse e = case FResponse e of XEvt XEvent _ -> Bool False LEvt LayoutResponse _ -> Bool False FResponse _ -> Bool True