Cleanup

2022-07-27 12:49:23 +01:00
parent 6554d219dc
commit 8d17ce66e9
106 changed files with 2911 additions and 2678 deletions
@@ -14,12 +14,8 @@ import qualified IntMapHelp as IM

 medkit :: Int -> Item
 medkit i = defaultConsumable
-    { _itUse = ConsumeUse 
-        {_cUse = CHeal i
-        }
-    , _itID = Nothing
-    }
-    & itType . iyBase .~ MEDKIT i
+    & itUse . cUse .~ CHeal i
+    & itType . iyBase .~ Consumable (MEDKIT i)

 heal25 :: Int -> World -> Maybe World
 heal25 = heal 25