Unify background machine sounds

src/Dodge/Data/Machine.hs

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