module TryLayout(tryLayoutK) where

import FRequest
--import Message
import Cont
import LayoutRequest
--import Command
--import Fudget
--import Xtypes
--import Event

tryLayoutK :: LayoutRequest -> Cont (K b c) Size
tryLayoutK LayoutRequest
lreq =
  FRequest -> (FResponse -> Maybe Size) -> Cont (K b c) Size
forall a b c. FRequest -> (FResponse -> Maybe a) -> Cont (K b c) a
cmdContK (LayoutRequest -> FRequest
layoutRequestCmd LayoutRequest
lreq) ((FResponse -> Maybe Size) -> Cont (K b c) Size)
-> (FResponse -> Maybe Size) -> Cont (K b c) Size
forall a b. (a -> b) -> a -> b
$ \FResponse
r ->
  case FResponse
r of
    LEvt (LayoutSize Size
s) -> Size -> Maybe Size
forall a. a -> Maybe a
Just Size
s
    FResponse
_ -> Maybe Size
forall a. Maybe a
Nothing