Cleanup

src/Dodge/Item/Weapon/Utility.hs

@@ -19,7 +19,7 @@ import Control.Lens
 rewindGun :: Item
 rewindGun = defaultGun
     { _itName = "REWINDER"
-    , _itCombineType = REWINDER
+    , _itType = REWINDER
     , _itConsumption = ChargeableAmmo
         { _wpMaxCharge  = 250
         , _wpCharge = 0
@@ -55,7 +55,7 @@ useRewindGun _ _ w = case _rewindWorlds w of
 shrinkGun :: Item
 shrinkGun = defaultGun
     { _itName = "SHRINKER"
-    , _itCombineType = SHRINKER
+    , _itType = SHRINKER
     , _itConsumption = defaultAmmo
         { _ammoMax = 100
         , _ammoLoaded = 100
@@ -85,7 +85,7 @@ useShrinkGun cr invid w = if _itBool $ _itAttachment it
 blinkGun :: Item
 blinkGun = defaultGun 
     { _itName = "BLINKER"
-    , _itCombineType = BLINKER
+    , _itType = BLINKER
     , _itConsumption = defaultAmmo
         { _ammoMax = 100
         , _ammoLoaded = 100
@@ -117,7 +117,7 @@ autoEffectGun name eff = defaultAutoGun
 forceFieldGun :: Item
 forceFieldGun = defaultGun 
     { _itName = "FORCEFIELD"
-    , _itCombineType = FORCEFIELD
+    , _itType = FORCEFIELD
     , _itConsumption = defaultAmmo
         { _ammoMax = 100
         , _ammoLoaded = 100