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 ()