Cleanup, trying to diagnose space leak in crit update

2021-12-09 22:12:44 +00:00
parent bd94044445
commit 3c35a04531
23 changed files with 203 additions and 178 deletions
@@ -6,6 +6,7 @@ module Dodge.Item.Weapon.BulletGun.Cane
    , autoRifle
    , assaultRifle
    , miniGun
+    , miniGun'
    ) where
 import Dodge.Item.Weapon.BulletGun.Clip
 import Dodge.Data
@@ -185,6 +186,8 @@ assaultRifle = repeater
        , withMuzFlareI
        , withRecoilI 50
        ]
+miniGun' :: Item
+miniGun' = miniGun & itConsumption . ammoLoaded .~ 0
 miniGun :: Item
 miniGun = defaultAutoGun 
    { _itName = "MINIGUN"