Cleanup

src/Dodge/Default/Item.hs

@@ -1,32 +1,32 @@
-module Dodge.Default.Item
-    ( defaultItem
-    ) where
-import Dodge.Data
-import Picture
+module Dodge.Default.Item (
+    defaultItem,
+) where
+
+import Dodge.Data.Item
 import Geometry.Data
---import Shape
+import Picture
 
 defaultItem :: Item
-defaultItem = Item
-    { _itCurseStatus = Uncursed
-    , _itType = defaultItemType
---    , _itEquipPict = \_ _ -> (,) emptySH blank
-    , _itEffect = NoItEffect
-    , _itID = Nothing
-    , _itIsHeld = False
-    , _itInvColor = yellow
-    , _itInvSize = 1
-    , _itPos = VoidItm
-    , _itDimension = ItemDimension 2 0 (V3 10 (-5) 3)
-    , _itConsumption = NoConsumption
-    , _itUse = NoUse
-    , _itAttachment = NoItAttachment
-    , _itParams = NoParams
-    , _itTweaks = NoTweaks
-    , _itScope = NoScope
-    , _itTargeting = NoTargeting
-    , _itValue = ItemValue 0 MundaneItem
-    }
+defaultItem =
+    Item
+        { _itCurseStatus = Uncursed
+        , _itType = defaultItemType
+        , --    , _itEquipPict = \_ _ -> (,) emptySH blank
+          _itEffect = NoItEffect
+        , _itID = Nothing
+        , _itIsHeld = False
+        , _itInvColor = yellow
+        , _itInvSize = 1
+        , _itPos = VoidItm
+        , _itDimension = ItemDimension 2 0 (V3 10 (-5) 3)
+        , _itUse = CraftUse (ItAmount 1)
+        , _itParams = NoParams
+        , _itTweaks = NoTweaks
+        , _itScope = NoScope
+        , _itTargeting = NoTargeting
+        , _itValue = ItemValue 0 MundaneItem
+        , _itAttachment = NoItAttachment
+        }
 
 defaultItemType :: ItemType
-defaultItemType = ItemType NOTDEFINED mempty NoStack
+defaultItemType = ItemType (error "defaultItemType not initialized") mempty NoStack