Working element buffer object

src/Dodge/Item/Consumable.hs

@@ -8,7 +8,7 @@ import Dodge.Default
 import Dodge.SoundLogic
 import Dodge.SoundLogic.LoadSound
 import Shape
-import ShapePicture
+--import ShapePicture
 import Dodge.Item.Draw
 import Picture
 
@@ -22,8 +22,8 @@ medkit i = defaultConsumable
     , _itMaxStack = 9
     , _itAmount = 1
     , _cnEffect = heal i
-    , _itFloorPict = SPic emptySH $ setLayer 0 . onLayer FlItLayer . color blue $ circleSolid 3
-    , _itEquipPict = pictureItem $ SPic emptySH $ color blue $ circleSolid 3
+    , _itFloorPict = (,) emptySH $ setLayer 0 . onLayer FlItLayer . color blue $ circleSolid 3
+    , _itEquipPict = pictureItem $ (,) emptySH $ color blue $ circleSolid 3
     , _itID = Nothing
     }