Refactor damages to materials

src/Dodge/Laser/Update.hs

@@ -2,12 +2,11 @@ module Dodge.Laser.Update (
     updateLaser,
 ) where
 
+import Dodge.Damage
 import Control.Lens
---import Data.Maybe
 import Dodge.Data.World
 import Dodge.Item.Location
 import Dodge.Item.Weapon.LaserPath
-import Dodge.WorldEvent.Damage
 import Geometry
 import Picture.Base
 
@@ -16,9 +15,7 @@ updateLaser w pt =
     ( case _lpType pt of
         DamageLaser dam ->
             damThingHitWith
-                (\p1 p2 p3 -> Lasering dam p2 (p3 - p1))
-                sp
-                xp
+                (\p2 -> Lasering dam p2 (xp - sp))
                 thHit
                 w
         TargetingLaser itid -> w & pointerToItemID itid . itTargeting . itTgPos ?~ last ps