Cleanup

src/Dodge/Item/Craftable.hs

@@ -7,10 +7,9 @@ import Dodge.Data.Item
 makeTypeCraftNum :: Int -> CraftType -> [Item]
 makeTypeCraftNum i ct = replicate i $
     defaultCraftItem
-        & itInvSize .~ 0.5
+        & itInvSize .~ 1
         & itCurseStatus .~ Uncursed
---        & itUse . useAmount .~ fromIntegral i
-        & itType . iyBase .~ CRAFT ct
+        & itType .~ CRAFT ct
 
 makeTypeCraft :: CraftType -> Item
 makeTypeCraft = head . makeTypeCraftNum 1