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
@@ -218,8 +218,8 @@ disconnectTerminal tm w =
            .~ [TerminalLineTerminalEffect 0 TmTmClearDisplayedLines]

 exitTerminalSubInv :: World -> World
-exitTerminalSubInv w = case w ^? cWorld . lWorld . hud . hudElement . subInventory . termID of
-    Just _ -> w & cWorld . lWorld . hud . hudElement . subInventory .~ NoSubInventory
+exitTerminalSubInv w = case w ^? hud . hudElement . subInventory . termID of
+    Just _ -> w & hud . hudElement . subInventory .~ NoSubInventory
    _ -> w

 damageCodeCommand :: TerminalCommand