Move function fields outside equipment

2022-07-20 20:40:13 +01:00
parent e9f0130013
commit 845c1f282e
14 changed files with 87 additions and 29 deletions
@@ -15,7 +15,7 @@ import qualified Data.IntMap.Strict as IM
 medkit :: Int -> Item
 medkit i = defaultConsumable
    { _itUse = ConsumeUse 
-        {_cUse = \_ cr w -> w & creatures . ix (_crID cr) . crHP +~ i
+        {_cUse = CHeal i
        }
    , _itID = Nothing
    }