Only display combinations for first items in list

src/Dodge/Creature.hs

@@ -116,7 +116,8 @@ inventoryX :: Char -> [Item]
 inventoryX c = case c of
     'A' ->
         [ clickDetector ITEMDETECTOR
-        , makeTypeCraftNum 1 TRANSFORMER
+        ] <> fold
+        [ makeTypeCraftNum 1 TRANSFORMER
         , makeTypeCraftNum 2 CAN
         , makeTypeCraftNum 2 PIPE
         ]
@@ -130,7 +131,8 @@ inventoryX c = case c of
         , tinMag
         , machinePistol
         , tinMag
-        , makeTypeCraftNum 4 MICROCHIP
+        ] <> fold
+        [ makeTypeCraftNum 4 MICROCHIP
         , makeTypeCraftNum 2 TIN
         , makeTypeCraftNum 2 HARDWARE
         , makeTypeCraftNum 2 CAN
@@ -148,7 +150,7 @@ inventoryX c = case c of
         , unsafeBlinkGun
         , autoDetector WALLDETECTOR
         ]
-    'E' ->
+    'E' -> fold
         [ makeTypeCraftNum 3 PIPE
         , makeTypeCraftNum 5 HARDWARE
         , makeTypeCraftNum 1 TIN
@@ -158,7 +160,7 @@ inventoryX c = case c of
         , makeTypeCraftNum 1 STEELDRUM
         , makeTypeCraftNum 1 MOTOR
         ]
-    'F' ->
+    'F' -> fold
         [ makeTypeCraftNum 5 PIPE
         , makeTypeCraftNum 5 TUBE
         , makeTypeCraftNum 5 HARDWARE
@@ -181,7 +183,8 @@ inventoryX c = case c of
         , tinMag
         , pistol
         , tinMag
-        , makeTypeCraftNum 2 HARDWARE
+        ] <> fold
+        [ makeTypeCraftNum 2 HARDWARE
         , makeTypeCraftNum 2 MAGNET
         , makeTypeCraftNum 5 (ENERGYBALLCRAFT IncBall)
         , makeTypeCraftNum 5 (ENERGYBALLCRAFT TeslaBall)
@@ -192,22 +195,23 @@ inventoryX c = case c of
     'H' -> [shatterGun]
     'I' ->
         [ makeTypeCraft TELEPORTMODULE
-        , makeTypeCraftNum 2 TIMEMODULE
-        , makeTypeCraftNum 2 MICROCHIP
         , makeTypeCraft HARDDRIVE
         , makeTypeCraft RAM
+        ] <> fold
+        [ makeTypeCraftNum 2 TIMEMODULE
+        , makeTypeCraftNum 2 MICROCHIP
         ]
     'J' ->
         [ lasGun
         , lasGun
         , dualBeam
-        , makeTypeCraftNum 10 TRANSFORMER
-        ]
+        ] <> makeTypeCraftNum 10 TRANSFORMER
     'K' ->
         [ autoRifle
         , tinMag
         , targetingHat TargetRBPress
-        , makeTypeCraftNum 7 MICROCHIP
+        ] <> fold
+        [ makeTypeCraftNum 7 MICROCHIP
         , makeTypeCraftNum 4 HARDWARE
         , makeTypeCraftNum 2 MAGNET
         , makeTypeCraftNum 1 MOTOR
@@ -239,8 +243,7 @@ inventoryX c = case c of
 
 testInventory :: [Item]
 testInventory =
-    [ makeTypeCraftNum 9 PIPE
-    , autoAmr
+    [  autoAmr
     , brainHat
     , headLamp
     , autoDetector WALLDETECTOR
@@ -249,11 +252,13 @@ testInventory =
     , wristArmour
     , flatShield
     , sniperRifle
-    , makeTypeCraftNum 1 MOTOR
     , makeTypeCraft (ENERGYBALLCRAFT IncBall)
     , makeTypeCraft (ENERGYBALLCRAFT TeslaBall)
     , makeTypeCraft (ENERGYBALLCRAFT ConcBall)
     , teleportModule
+    ] <> fold
+    [ makeTypeCraftNum 1 MOTOR
+    , makeTypeCraftNum 9 PIPE
     , makeTypeCraftNum 10 HARDWARE
     , makeTypeCraftNum 3 SPRING
     , makeTypeCraftNum 10 CAN