Continue bullet refactor

src/Dodge/Particle/TeslaArc.hs

@@ -3,22 +3,12 @@ module Dodge.Particle.TeslaArc
     ) where
 import Dodge.Data
 import Dodge.Damage
---import Dodge.WorldEvent.Damage
---import Dodge.Base
---import Dodge.Zone
---import Dodge.Base.Collide
-import Dodge.Particle.Spark
---import Dodge.WorldEvent.ThingsHit
+import Dodge.Spark
 import RandomHelp
 import Picture
 import Geometry
---import qualified IntMapHelp as IM
 import LensHelp
 
---import Data.Function (on)
---import Data.List
---import Data.Maybe
-
 aTeslaArcAt :: Color -> [ArcStep] -> Particle
 aTeslaArcAt col thearc = PtTeslaArc
     { _ptPoints = map (^. asPos) thearc