module Display(openDisplay) where
import Command
import Event
import Xrequest
openDisplay :: DisplayName -> Cont (F b c) Display
openDisplay DisplayName
name =
XRequest -> (XResponse -> Maybe Display) -> Cont (F b c) Display
forall a b c. XRequest -> (XResponse -> Maybe a) -> Cont (F b c) a
xrequestF (DisplayName -> XRequest
OpenDisplay DisplayName
name)
(let e :: XResponse -> Maybe Display
e (DisplayOpened Display
a) = Display -> Maybe Display
forall a. a -> Maybe a
Just Display
a
e XResponse
_ = Maybe Display
forall a. Maybe a
Nothing
in XResponse -> Maybe Display
e)