Flatten HUDElement

2025-08-26 16:46:02 +01:00
parent 596880f76a
commit 9034c409e1
24 changed files with 255 additions and 270 deletions
@@ -20,7 +20,7 @@ import Dodge.Wall.Move
 import Geometry.Vector

 cancelExamineInventory :: World -> World
-cancelExamineInventory = hud . hudElement . subInventory %~ f
+cancelExamineInventory = hud . subInventory %~ f
  where
    f ExamineInventory = NoSubInventory
    f x = x