Work on bullet module system

src/Dodge/Item/Weapon/BulletGun/Cane.hs

@@ -9,8 +9,8 @@ module Dodge.Item.Weapon.BulletGun.Cane
     , fastBurstRifle
     , miniGunX
     ) where
-import Dodge.Particle.Bullet.HitEffect
-import Dodge.WorldEvent.HitEffect
+--import Dodge.Particle.Bullet.HitEffect
+--import Dodge.WorldEvent.HitEffect
 import Dodge.Item.Weapon.BulletGun.Clip
 import Dodge.Data
 --import Dodge.ChainEffect
@@ -42,8 +42,6 @@ import Data.Maybe
 bangCane :: Item
 bangCane = defaultGun
     { _itName = "BANGCANE"
-    , _itModules = ItemModules
-        { _modHitEffect = ItemModule (destroyOnImpact bulIncCr bulIncWall) ["+INCENDIARY"] 1}
     , _itType = BANGCANE
     ,_itParams = BulletShooter
         { _muzVel = 0.8
@@ -147,6 +145,8 @@ rifle = bangCane
         , _dimSPic = \it -> noPic $ baseRifleShape
             <> makeSingleClipAt (V3 5 0 3) it
         }
+    , _itModules = ItemModules
+        { _modHitEffect = DefaultModule }
     }
     & itUse . useAim . aimStance .~ TwoHandTwist
     & itName .~ "RIFLE"