Cleanup

src/Dodge/Item/Weapon/Radar.hs

@@ -1,22 +1,10 @@
-module Dodge.Item.Weapon.Radar 
-    ( autoDetector
-    , detectorEffect
-    ) where
+module Dodge.Item.Weapon.Radar (
+    detectorEffect,
+) where
 
-import Control.Lens
 import Dodge.Data.World
-import Dodge.Default
 import Dodge.RadarSweep
 
-autoDetector :: Detector -> Item
-autoDetector dt =
-    defaultEquipment
-        & itUse . uequipEffect . eeSite .~ GoesOnWrist
-        & itUse . uequipEffect . eeUse .~ EDetector dt --autoEffect (detectorEffect dt) 100 click1S
-        & itUse . uequipEffect . eeParams .~ EquipCounter 0
-        & itUse . uequipEffect . eeViewDist ?~ 350
-        & itType .~ EQUIP (AUTODETECTOR dt)
-
 detectorEffect :: Detector -> Item -> Creature -> World -> World
 detectorEffect dt = case dt of
     ITEMDETECTOR -> const (aRadarPulse ObItem)