{-# LANGUAGE OverloadedLists #-}

module Taskell.Events.Actions.Modal.Help
    ( event
    , events
    ) where

import ClassyPrelude
import Graphics.Vty.Input.Events
import Taskell.Events.Actions.Types as A (ActionType (..))
import Taskell.Events.State
import Taskell.Events.State.Types   (Stateful)
import Taskell.IO.Keyboard.Types    (Actions)

events :: Actions
events :: Actions
events = [(ActionType
A.Quit, Stateful
quit)]

event :: Event -> Stateful
event :: Event -> Stateful
event (EvKey Key
_ [Modifier]
_) = Stateful
normalMode
event Event
_           = Stateful
forall (f :: * -> *) a. Applicative f => a -> f a
pure