Make hud non-saveable

src/Dodge/Render/HUD.hs

@@ -32,7 +32,7 @@ import Picture
 import SDL (MouseButton (..))
 
 drawHUD :: Configuration -> World -> Picture
-drawHUD cfig w = case w ^. cWorld . lWorld . hud . hudElement of
+drawHUD cfig w = case w ^. hud . hudElement of
     DisplayCarte -> drawCarte cfig w
     DisplayInventory subinv ->
         drawInGameHUD sl cfig w
@@ -76,7 +76,7 @@ invDisplayParams w =
     selcursortype
         | isexaminesub || ButtonRight `M.member` _mouseButtons (_input w) = [North, South, East, West]
         | otherwise = [North, South, West]
-    isexaminesub = case w ^? cWorld . lWorld . hud . hudElement . subInventory of
+    isexaminesub = case w ^? hud . hudElement . subInventory of
         Just ExamineInventory{} -> True
         _ -> False
 
@@ -342,7 +342,7 @@ drawCarte cfig w =
   where
     iPos = w ^. cWorld . lWorld . selLocation
     locs = map (\(_, s) -> (s, white)) . IM.elems . _seenLocations . _lWorld $ _cWorld w
-    locPoss = map (cartePosToScreen cfig (w ^. cWorld . lWorld . hud) . ($ w) . doWorldPos . fst) . IM.elems . _seenLocations . _lWorld $ _cWorld w
+    locPoss = map (cartePosToScreen cfig (w ^. hud) . ($ w) . doWorldPos . fst) . IM.elems . _seenLocations . _lWorld $ _cWorld w
     locTexts = map fst locs
 
 displayListEndCoords :: Configuration -> [String] -> [Point2]
@@ -356,7 +356,7 @@ displayListEndCoords cfig ss = map (doWindowScale cfig) $ zipWith h ss $ map f [
 mapOverlay :: Configuration -> World -> [Picture]
 mapOverlay cfig w =
     (color (withAlpha 0.5 black) . polygon $ reverse $ rectNSWE 1 (-1) 1 (-1)) :
-    (mapMaybe (mapWall cfig (w ^. cWorld . lWorld . hud)) . IM.elems $ w ^. cWorld . lWorld . walls)
+    (mapMaybe (mapWall cfig (w ^. hud)) . IM.elems $ w ^. cWorld . lWorld . walls)
 
 mapWall :: Configuration -> HUD -> Wall -> Maybe Picture
 mapWall cfig thehud wl