Only display combinations for first items in list

src/Dodge/Item/Craftable.hs

@@ -4,16 +4,16 @@ import Dodge.Default.Item
 import Control.Lens
 import Dodge.Data.Item
 
-makeTypeCraftNum :: Int -> CraftType -> Item
-makeTypeCraftNum i ct =
+makeTypeCraftNum :: Int -> CraftType -> [Item]
+makeTypeCraftNum i ct = replicate i $
     defaultCraftItem
         & itInvSize .~ 0.5
         & itCurseStatus .~ Uncursed
-        & itUse . useAmount .~ fromIntegral i
+--        & itUse . useAmount .~ fromIntegral i
         & itType . iyBase .~ CRAFT ct
 
 makeTypeCraft :: CraftType -> Item
-makeTypeCraft = makeTypeCraftNum 1
+makeTypeCraft = head . makeTypeCraftNum 1
 
 energyBallCraft :: EnergyBallType -> Item
 energyBallCraft ebt = makeTypeCraft (ENERGYBALLCRAFT ebt) & itInvSize .~ 1