Cleanup

2022-06-06 16:37:52 +01:00
parent ce323630ee
commit 4e181b8273
8 changed files with 23 additions and 30 deletions
@@ -126,7 +126,8 @@ subInventoryDisplay subinv cfig w = case subinv of
  where 
    displayTermInput tp = case _tmInput tp of
        Nothing -> id
-        Just (TerminalInput s inputstatus) -> (++ [('>':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