Work towards duct taping torch

src/Dodge/Combine/Combinations.hs

@@ -130,6 +130,14 @@ moduleCombinations =
             ,amod [cr MOTOR,cr HARDWARE] BELTMAG
             ]
         )
+    ,   ( ModHeldAttach
+        ,   [rifle
+            ,autoRifle
+            ,burstRifle
+            ]
+        ,   [amod [cr DUCTTAPE,HELD TORCH] ATTACHTORCH
+            ]
+        )
     ,   ( ModAutoMag
         ,   [autoRifle
             ,autoPistol

src/Dodge/Combine/Data.hs

@@ -22,6 +22,7 @@ data CraftType
     | TUBE
     | HARDWARE
     | SPRING
+    | DUCTTAPE
     | CAN
     | TIN
     | DRUM
@@ -197,6 +198,7 @@ data ItemModuleType
     | WEPTELE
     | LAUNCHHOME
     | EXTRABATTERY
+    | ATTACHTORCH
   deriving (Eq,Ord,Show)
 
 data Detector
@@ -215,7 +217,7 @@ data ModuleSlot
     | ModBattery
     | ModTeleport
     | ModDualBeam
-    | ModAlongsideWeapon
+    | ModHeldAttach
   deriving (Eq,Ord,Show)
 
 makeLenses ''ItemType

src/Dodge/Combine/Module.hs

@@ -38,6 +38,7 @@ moduleModification imt = case imt of
     WEPTELE     -> makeDirectedTele
     LAUNCHHOME  -> itConsumption . laAmmoType . amPjCreation .~ fireTrackingShell
     EXTRABATTERY -> itConsumption . laMax +~ 1000
+    ATTACHTORCH  -> itUse . heldAttachment .~ Torch
   where
     f ameff = itConsumption . laAmmoType . amBulEff .~ ameff
     makeDirectedTele it = it