Introduce destructible switches

src/Dodge/Machine/Draw.hs

@@ -23,7 +23,7 @@ drawMachine cw mc = case _mcType mc of
     McProxSensor {} -> drawBaseMachine 25 mc
     McStorage {} -> noPic $ colorSH (mcColor mc) storageShape
     McDistributer {} -> drawBaseMachine 25 mc
-    McInterrupter {} -> drawBaseMachine 25 mc
+    McTrigger {} -> drawBaseMachine 25 mc
   where
     lw = cw ^. lWorld
     gp = cw ^. cwGen . cwgParams . sensorCoding
@@ -88,7 +88,7 @@ mcColor mc = case mc ^. mcType of
     McTurret {} -> blue
     McStorage {} -> orange
     McDistributer {} -> green
-    McInterrupter {} -> red
+    McTrigger {} -> red
     
 
 drawTurret :: LWorld -> Turret -> Machine -> SPic