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
@@ -44,7 +44,7 @@ accessTerminal :: Maybe Int -> World -> World
 accessTerminal mtmid w = case mtmid of
    Nothing -> w
    Just tmid ->
-        w & cWorld . lWorld . hud . hudElement . subInventory .~ DisplayTerminal tmid
+        w & hud . hudElement . subInventory .~ DisplayTerminal tmid
            & cWorld . lWorld . terminals . ix tmid . tmInput . tiFocus .~ True
            & cWorld . lWorld . terminals . ix tmid %~ tryToBoot
      where