Introduce destructible switches

src/Dodge/Data/Machine.hs

@@ -47,7 +47,7 @@ data MachineType
     | McTurret {_mctTurret :: Turret}
     | McStorage {_mcsType :: AmmoType, _mcsAmount :: Int}
     | McDistributer {_mcdStorageMachine :: Maybe Int}
-    | McInterrupter
+    | McTrigger {_mcTriggerID :: Int}
 --    | McSynthesiser
 
 instance ShortShow MachineType where
@@ -59,7 +59,7 @@ instance ShortShow MachineType where
         McTurret {} -> "McTur"
         McStorage {} -> "McStor"
         McDistributer {} -> "McDist"
-        McInterrupter {} -> "McInterrupter"
+        McTrigger i -> "McTrigger " <> show i
 
 data Turret = Turret
     { _tuWeapon :: Int