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