Cleanup code, speed up radar sweeps

src/Dodge/Item/Weapon.hs

@@ -2,13 +2,11 @@
 module Dodge.Item.Weapon (
     module Dodge.Item.Weapon.TriggerType,
     module Dodge.Item.Weapon.ExtraEffect,
-    module Dodge.Item.Weapon.Radar,
     module Dodge.Item.Weapon.Utility,
     module Dodge.Item.Weapon.Drone,
 ) where
 
 import Dodge.Item.Weapon.Drone
 import Dodge.Item.Weapon.ExtraEffect
-import Dodge.Item.Weapon.Radar
 import Dodge.Item.Weapon.TriggerType
 import Dodge.Item.Weapon.Utility

src/Dodge/Item/Weapon/Radar.hs

@@ -1,12 +0,0 @@
-module Dodge.Item.Weapon.Radar (
-    detectorEffect,
-) where
-
-import Dodge.Data.World
-import Dodge.RadarSweep
-
-detectorEffect :: Detector -> Item -> Creature -> World -> World
-detectorEffect dt = case dt of
-    ITEMDETECTOR -> const (aRadarPulse ObItem)
-    CREATUREDETECTOR -> const (aRadarPulse ObCreature)
-    WALLDETECTOR -> const (aRadarPulse ObWall)