Make analyser into one machine

2022-03-22 09:35:17 +00:00
parent 9c46027711
commit c0383dbd8a
8 changed files with 95 additions and 11 deletions
@@ -83,7 +83,7 @@ subInventoryDisplay subinv cfig w = case subinv of
        , listTextPicturesAt subInvX 60 cfig $ map text (ammoTweakStrings it)
        ]
    DisplayTerminal {_termParams = tp} -> pictures
-        [ invHead cfig "TERMINAL"
+        [ invHead cfig (_termTitle tp)
        , renderListAt subInvX 60 cfig 
            . reverse 
            . take (_termMaxLines tp)