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
@@ -25,7 +25,7 @@ terminalReturnEffect tm w = guardDisconnected tm w $

 defocusTerminalInput :: World -> World
 defocusTerminalInput w = fromMaybe w $ do
-    tmid <- w ^? cWorld . lWorld . hud . hudElement . subInventory . termID
+    tmid <- w ^? hud . hudElement . subInventory . termID
    return $ w & cWorld . lWorld . terminals . ix tmid . tmInput . tiFocus %~ const False

 runTerminalString :: String -> Terminal -> World -> World