Make item display universal

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

@@ -7,7 +7,6 @@ module Dodge.Item.Weapon.BulletGun.Rod
     , machineGun
     ) where
 import Dodge.Data
-import Dodge.Default.Item
 import Dodge.Item.Weapon.BulletGun.Clip
 import Dodge.Particle.HitEffect
 import Dodge.Particle.Damage
@@ -33,7 +32,6 @@ import Shape
 --import Sound.Data
 import LensHelp
 
-import Data.Maybe
 --import qualified Data.Sequence as Seq
 --import Control.Lens
 --import Control.Monad.State
@@ -150,6 +148,3 @@ machineGun = bangRod
     & itConsumption . laReloadTime .~ 75
     & itInvSize .~ 3
     & itParams. torqueAfter .~ 0.2 -- not sure if this is necessary?
-    & itInvDisplay .~ \it -> head (basicItemDisplay it) : 
-        ["*FIRERATE:" ++ fromMaybe "" (maybeRateStatus it)
-        ]