Make hud non-saveable

2022-12-29 01:10:09 +00:00
parent be41d51819
commit 7fc3b788b4
17 changed files with 57 additions and 59 deletions
@@ -6,7 +6,7 @@ import LensHelp

 inTermFocus :: World -> Bool
 inTermFocus w = fromMaybe False $ do
-    tmid <- w ^? cWorld . lWorld . hud . hudElement . subInventory . termID
+    tmid <- w ^? hud . hudElement . subInventory . termID
    hasfocus <- w ^? cWorld . lWorld . terminals . ix tmid . tmInput . tiFocus
    connectionstatus <- w ^? cWorld . lWorld . terminals . ix tmid . tmStatus
    return $ hasfocus && connectionstatus == TerminalReady