Refactor item drawing

2021-10-01 23:01:36 +01:00
parent 5f17841811
commit 8c1496e140
28 changed files with 248 additions and 185 deletions
@@ -22,7 +22,7 @@ medkit i = defaultConsumable
    , _itMaxStack = 9
    , _itAmount = 1
    , _cnEffect = heal i
-    , _itFloorPict = (,) emptySH $ setLayer 0 . onLayer FlItLayer . color blue $ circleSolid 3
+    , _itFloorPict = \it -> (,) emptySH $ setLayer 0 . onLayer FlItLayer . color blue $ circleSolid 3
    , _itEquipPict = pictureItem $ (,) emptySH $ color blue $ circleSolid 3
    , _itID = Nothing
    }