Move muzzles out of records

src/Dodge/Data/Item/Params.hs

@@ -18,6 +18,7 @@ data ItemParams
         { _currentArc :: [ArcStep]}
     | NozzleAngle {_nzAngle :: Float}
     | VolleyUnfiredBarrels {_unfiredBarrels :: [Int]}
+    | AlteRifleSwitch {_alteRifleSwitch :: Int}
 
 data ShrinkGunStatus = FullSize | Shrunk
     --deriving (Eq, Ord, Show, Read) --Generic, Flat)