Work on weapon attachments

2023-09-25 13:38:47 +01:00
parent f9c6769262
commit 0a7f5079ad
12 changed files with 28 additions and 34 deletions
@@ -9,7 +9,7 @@ medkit :: Int -> Item
 medkit i =
    defaultConsumable
        & itUse . cUse .~ CHeal i
-        & itType . iyBase .~ Consumable (MEDKIT i)
+        & itType . iyBase .~ CONSUMABLE (MEDKIT i)

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