module Matterhorn.Events.LeaveChannelConfirm where import Prelude () import Matterhorn.Prelude import qualified Graphics.Vty as Vty import Matterhorn.State.Channels import Matterhorn.Types onEventLeaveChannelConfirm :: Vty.Event -> MH () onEventLeaveChannelConfirm :: Event -> MH () onEventLeaveChannelConfirm (Vty.EvKey Key k []) = do case Key k of Vty.KChar Char c | Char c Char -> [Char] -> Bool forall (t :: * -> *) a. (Foldable t, Eq a) => a -> t a -> Bool `elem` ([Char] "yY"::String) -> MH () leaveCurrentChannel Key _ -> () -> MH () forall (m :: * -> *) a. Monad m => a -> m a return () Mode -> MH () setMode Mode Main onEventLeaveChannelConfirm Event _ = () -> MH () forall (m :: * -> *) a. Monad m => a -> m a return ()