Attach terminal to analyser (these should rather be combined)

2022-03-21 19:20:58 +00:00
parent 51cc04799d
commit 9c46027711
11 changed files with 92 additions and 47 deletions
@@ -326,15 +326,14 @@ data Button = Button
    , _btTerminalParams :: TerminalParams
    }
 data TerminalParams = NoTerminalParams | TerminalParams
-    { _termDisplayedLines :: [(String,Color)]
+    { _termDisplayedLines :: [World -> (String,Color)]
    , _termFutureLines :: [TerminalLine]
    , _termMaxLines :: Int
    }
 data TerminalLine
    = TerminalLineDisplay
        {_tlPause :: Int
-        ,_tlString :: String
-        ,_tlColor  :: Color
+        ,_tlString :: World -> (String, Color)
        }
    | TerminalLineEffect
        {_tlPause :: Int