Move towards unifying weapon barrels

src/Dodge/Item/Held/Rod.hs

@@ -7,6 +7,7 @@ module Dodge.Item.Held.Rod (
     machineGun,
 ) where
 
+import Dodge.Item.Held.SingleBarrel
 import Dodge.Data.Item
 import Dodge.Default
 import Dodge.Item.Weapon.Bullet
@@ -22,7 +23,7 @@ bangRod =
                 { _muzVel = 0.8
                 , _rifling = 1
                 , _bore = 2
-                , _gunBarrels = SingleBarrel 0.1
+                , _gunBarrels = singleBarrel 0.1
                 , _recoil = 50
                 , _torqueAfter = 0.3
                 , _randomOffset = 0
@@ -47,7 +48,7 @@ elephantGun =
     bangRod
         & itType . iyBase .~ HELD ELEPHANTGUN
         & itUse . heldAim . aimStance .~ TwoHandTwist
-        & itParams . gunBarrels .~ SingleBarrel 0.05
+        & itParams . gunBarrels .~ singleBarrel 0.05
         & itUse . heldMods .~ ElephantGunMod
         & itParams . recoil .~ 50
         & itParams . torqueAfter .~ 0.1
@@ -68,7 +69,7 @@ sniperRifle :: Item
 sniperRifle =
     elephantGun
         & itType . iyBase .~ HELD SNIPERRIFLE
-        & itParams . gunBarrels .~ SingleBarrel 0
+        & itParams . gunBarrels .~ singleBarrel 0
         & itUse . heldAim . aimZoom .~ defaultItZoom{_izMax = 0.5, _izMin = 0.5,_izFac = 1}
         & itUse . heldScroll .~ HeldScrollZoom -- zoomLongGun
         & itScope .~ ZoomScope (V2 0 0) 1 0.5 False