Cleanup console input slightly

2022-03-20 19:41:40 +00:00
parent ff93d1d041
commit 988a0de578
6 changed files with 39 additions and 41 deletions
@@ -173,7 +173,10 @@ data ScreenLayer
        , _scDefaultEff :: Universe -> IO (Maybe Universe)
        , _scOptionFlag :: OptionScreenFlag
        }
-    | ColumnsScreen String [(String,String)]
+    | ColumnsScreen 
+        { _scTitle  :: Universe -> String 
+        , _scColumns :: [(String,String)]
+        }
    | InputScreen 
        { _scInput  :: String 
        , _scFooter :: String
@@ -1031,3 +1034,4 @@ makeLenses ''SubInventory
 makeLenses ''TerminalParams
 makeLenses ''TerminalLine
 makeLenses ''ItemValue
+makeLenses ''ScreenLayer