Cleanup

src/Dodge/Item/Held/Rod.hs

@@ -25,7 +25,7 @@ bangRod =
         & itUse . heldDelay . rateMax .~ 12
         & itDimension . dimRad .~ 12
         & itDimension . dimCenter .~ V3 5 0 0
-        & itType . iyBase .~ HELD BANGROD
+        & itType .~ HELD BANGROD
         & itUse . heldAim . aimWeight .~ 8
         & itUse . heldAim . aimRange .~ 1
         & itUse . heldAim . aimStance .~ OneHand
@@ -38,7 +38,7 @@ bangRod =
 elephantGun :: Item
 elephantGun =
     bangRod
-        & itType . iyBase .~ HELD ELEPHANTGUN
+        & itType .~ HELD ELEPHANTGUN
         & itUse . heldAim . aimStance .~ TwoHandUnder
         & itUse . heldAim . aimMuzzles . ix 0 . mzInaccuracy .~ 0.05
         & itUse . heldParams . recoil .~ 50
@@ -46,17 +46,17 @@ elephantGun =
 amr :: Item
 amr =
     elephantGun
-        & itType . iyBase .~ HELD AMR
+        & itType .~ HELD AMR
 
 autoAmr :: Item
 autoAmr =
     amr
-        & itType . iyBase .~ HELD AUTOAMR
+        & itType .~ HELD AUTOAMR
 
 sniperRifle :: Item
 sniperRifle =
     elephantGun
-        & itType . iyBase .~ HELD SNIPERRIFLE
+        & itType .~ HELD SNIPERRIFLE
         & itUse . heldAim . aimMuzzles . ix 0 . mzInaccuracy .~ 0
         & itUse . heldAim . aimZoom .~ defaultItZoom{_izMax = 0.5, _izMin = 0.5,_izFac = 1}