Cleanup

src/Dodge/Render/HUD.hs

@@ -84,12 +84,12 @@ subInventoryDisplay subinv cfig w = case subinv of
         , invHead cfig "TWEAK"
         , listTextPicturesAt subInvX 60 cfig $ map text (ammoTweakStrings it)
         ]
-    DisplayTerminal {_termID = tid,_onInputLine=inputstatus} -> 
+    DisplayTerminal {_termID = tid} -> 
       let tp = w ^?! terminals . ix tid
       in pictures
         [ invHead cfig (_tmTitle tp ++ ":T" ++ show tid)
         , renderListAt subInvX 60 cfig 
-            . displayTermInput inputstatus tp
+            . displayTermInput tp
 --            . (++ map (\(str,_) -> (str,white)) (_termOptions tp))
             . reverse 
             . take (_tmMaxLines tp) 
@@ -124,9 +124,9 @@ subInventoryDisplay subinv cfig w = case subinv of
         ]
     InspectInventory -> invHead cfig "INSPECT"
   where 
-    displayTermInput inputstatus tp = case _tmInput tp of
+    displayTermInput tp = case _tmInput tp of
         Nothing -> id
-        Just s -> (++ [('>':T.unpack s++displayBlinkCursor inputstatus,white)])
+        Just (TerminalInput s inputstatus) -> (++ [('>':T.unpack s++displayBlinkCursor inputstatus,white)])
     displayBlinkCursor inputstatus | inputstatus = clockCycle 10 (V.fromList ["_",""]) w
         | otherwise = []
     closeobjectcursor = case selectedCloseObject w of