Move item inv size and item dimensions from records to external function

src/Dodge/Item/Craftable.hs

@@ -7,7 +7,6 @@ import Dodge.Data.Item
 makeTypeCraftNum :: Int -> CraftType -> [Item]
 makeTypeCraftNum i ct = replicate i $
     defaultCraftItem
-        & itInvSize .~ 1
         & itType .~ CRAFT ct
 
 makeTypeCraft :: CraftType -> Item
@@ -28,16 +27,16 @@ makeTypeCraft = head . makeTypeCraftNum 1
 --bounceModule = bulletBodyCraft BounceBullet
 
 teleportModule :: Item
-teleportModule = makeTypeCraft TELEPORTMODULE & itInvSize .~ 1
+teleportModule = makeTypeCraft TELEPORTMODULE
 
 timeModule :: Item
-timeModule = makeTypeCraft TIMEMODULE & itInvSize .~ 1
+timeModule = makeTypeCraft TIMEMODULE
 
 sizeModule :: Item
-sizeModule = makeTypeCraft SIZEMODULE & itInvSize .~ 1
+sizeModule = makeTypeCraft SIZEMODULE
 
 gravityModule :: Item
-gravityModule = makeTypeCraft GRAVITYMODULE & itInvSize .~ 1
+gravityModule = makeTypeCraft GRAVITYMODULE
 
 pipe :: Item
 pipe = makeTypeCraft PIPE