Make items recoverable from base type

src/Dodge/Item/Craftable.hs

@@ -9,22 +9,17 @@ import Color
 --import Geometry
 import Control.Lens
 
-makeTypeCraftNum :: Int -> ItemBaseType -> Item
+makeTypeCraftNum :: Int -> CraftType -> Item
 makeTypeCraftNum i ct = defaultCraftable
     { _itInvSize = 0.5
     , _itCurseStatus = Uncursed
     , _itConsumption = ItemItselfConsumable $ IcAmount i
     }
-    & itType . iyBase .~ ct
+    & itType . iyBase .~ CRAFT ct
 
-makeTypeCraft :: ItemBaseType -> Item
+makeTypeCraft :: CraftType -> Item
 makeTypeCraft = makeTypeCraftNum 1
 
-makeModule :: ItemBaseType -> Item
-makeModule ct = makeTypeCraft ct
-    & itInvSize .~ 1
-    & itInvColor .~ chartreuse
-
 incendiaryModule :: Item
 incendiaryModule = makeTypeCraft INCENDIARYMODULE
     & itInvSize .~ 1