Fix item location bug

2026-05-16 12:21:19 +01:00
parent db2ce72076
commit 4bcea5e772
10 changed files with 159 additions and 148 deletions
@@ -14,7 +14,9 @@ import Dodge.HeldUse
 import Dodge.Inventory
 import Dodge.Item.Grammar
 import Dodge.Item.Location
--import qualified IntMapHelp as IM
+
+--note :: a -> Maybe b -> Either a b
+--note x = maybe (Left x) Right

 useItem :: Int -> Int -> World -> Maybe World
 useItem invid pt w = fmap (worldEventFlags . at InventoryChange ?~ ()) $ do