Commit before changing TerminalCommand to produce [TerminalLine]

2022-06-06 20:25:38 +01:00
parent b20502bc35
commit 1fe41889fe
8 changed files with 32 additions and 28 deletions
@@ -7,5 +7,5 @@ import Data.Maybe
 hasTerminalFocus :: World -> Bool
 hasTerminalFocus w = fromMaybe False $ do
    tmid <- w ^? hud . hudElement . subInventory . termID
-    w ^? terminals . ix tmid . tmInput . _Just . tiFocus
+    w ^? terminals . ix tmid . tmInput . tiFocus