Data-ify item drawing

2022-07-11 00:33:59 +01:00
parent 75cd15c240
commit ad84e69d05
15 changed files with 102 additions and 81 deletions
@@ -3,13 +3,13 @@ module Dodge.Default.Item
    ) where
 import Dodge.Data
 import Picture
-import Shape
+--import Shape

 defaultItem :: Item
 defaultItem = Item
    { _itCurseStatus = Uncursed
    , _itType = defaultItemType
-    , _itEquipPict = \_ _ -> (,) emptySH blank
+--    , _itEquipPict = \_ _ -> (,) emptySH blank
    , _itEffect = NoItEffect
    , _itID = Nothing
    , _itIsHeld = False