Refactor, try to limit dependencies

src/Dodge/Laser/Update.hs

@@ -1,25 +1,23 @@
-module Dodge.Laser.Update
-    where
-import Dodge.Item.Weapon.LaserPath
-import Dodge.WorldEvent.Damage
-import Dodge.Data
-import Geometry
+module Dodge.Laser.Update where
 
 import Control.Lens
 import Data.Maybe
+import Dodge.Data.World
+import Dodge.Item.Weapon.LaserPath
+import Dodge.WorldEvent.Damage
+import Geometry
 
 updateLaser :: World -> LaserStart -> (World, Laser)
 updateLaser w pt =
     ( w'
-    , Laser {_laPoints = sp:ps , _laColor = _lpColor pt, _laType = _lpType pt}
+    , Laser{_laPoints = sp : ps, _laColor = _lpColor pt, _laType = _lpType pt}
     )
   where
     w' = fromMaybe w $ do
         dam <- pt ^? lpType . laserTypeDamage
         return $ damThingHitWith (\p1 p2 p3 -> Damage LASERING dam p1 p2 p3 NoDamageEffect) sp xp thHit w
     phasev = _lpPhaseV pt
-    sp  = _lpPos pt
+    sp = _lpPos pt
     dir = _lpDir pt
     xp = sp +.+ 800 *.* unitVectorAtAngle dir
     (thHit, ps) = reflectLaserAlong phasev sp xp w
-