Flatten HUDElement

src/Dodge/WorldEffect.hs

@@ -55,7 +55,7 @@ accessTerminal tid w = fromMaybe w $ do
     tm <- w ^? cWorld . lWorld . terminals . ix tid
     guard (tm ^. tmStatus /= TerminalDeactivated)
     return $
-        w & hud . hudElement . subInventory .~ DisplayTerminal tid
+        w & hud . subInventory .~ DisplayTerminal tid
             & cWorld . lWorld . terminals . ix tid %~ tryToBoot
   where
     tryToBoot tm = case _tmStatus tm of
@@ -106,6 +106,6 @@ resetTerminal x tm =
         . exitTerminalSubInv
 
 exitTerminalSubInv :: World -> World
-exitTerminalSubInv w = case w ^? hud . hudElement . subInventory . termID of
-    Just _ -> w & hud . hudElement . subInventory .~ NoSubInventory
+exitTerminalSubInv w = case w ^? hud . subInventory . termID of
+    Just _ -> w & hud . subInventory .~ NoSubInventory
     _ -> w