Cleanup

2022-06-07 14:20:13 +01:00
parent cc5d431d4c
commit c8c299cfb5
8 changed files with 61 additions and 67 deletions
@@ -4,8 +4,8 @@ import LensHelp

 import Data.Maybe

-hasTerminalFocus :: World -> Bool
-hasTerminalFocus w = fromMaybe False $ do
+inTermFocus :: World -> Bool
+inTermFocus w = fromMaybe False $ do
    tmid <- w ^? hud . hudElement . subInventory . termID
    w ^? terminals . ix tmid . tmInput . tiFocus