Commit before messing with main inventory display

2023-01-24 11:54:59 +00:00
parent 5810c2262a
commit ce25157738
13 changed files with 74 additions and 55 deletions
@@ -103,8 +103,8 @@ fullModuleName :: ItemModuleType -> String
 fullModuleName = fromMaybe "EMPTYMODULE" . moduleName

 toggleCombineInv :: World -> World
-toggleCombineInv w = case w ^. hud . hudElement of
-    DisplayInventory CombineInventory{} -> w & hud . hudElement . subInventory .~ NoSubInventory
+toggleCombineInv w = case w ^? hud . hudElement . subInventory of
+    Just CombineInventory{} -> w & hud . hudElement . subInventory .~ NoSubInventory
    _ -> w & enterCombineInv

 enterCombineInv :: World -> World