Refactor control list display

2021-09-13 01:39:53 +01:00
parent d11d19c9e8
commit b27c174d93
6 changed files with 79 additions and 52 deletions
@@ -1,6 +1,4 @@
-{- |
-Deals with keyboard events.
-}
+{- | Deals with keyboard events.  -}
 module Dodge.Event.Keyboard
    ( handleKeyboardEvent
    )
@@ -15,6 +15,7 @@ handlePressedKeyInMenu mState scode = case mState of
    OptionScreen { _scOptions = mos, _scDefaultEff = defeff} 
                        -> optionListToEffects mos defeff scode
    DisplayScreen {}    -> popScreen
+    ColumnsScreen {}    -> popScreen
    WaitScreen {}       -> Just
    TerminalScreen 0 _  -> popScreen
    TerminalScreen _ m  -> Just . ( menuLayers %~ ( (TerminalScreen 0 m : ) . tail) )