Move wall collisions around

src/Dodge/Wall/DamageEffect.hs

@@ -2,7 +2,7 @@ module Dodge.Wall.DamageEffect where
 import Dodge.Data
 import Dodge.Particle.Spark
 import Dodge.Particle.Bullet.Spawn
-import Dodge.Wall.Reflect
+import Dodge.Base.Wall
 import Dodge.Wall.Dust
 import Dodge.Block
 import Geometry

src/Dodge/Wall/Reflect.hs

@@ -1,15 +0,0 @@
-module Dodge.Wall.Reflect
-    where
-import Geometry
-import Dodge.Data
-
-reflDirWall :: Point2 -> Point2 -> Wall -> Float
-reflDirWall sp ep wl = argV (reflectIn (uncurry (-.-) (_wlLine wl)) (ep -.- sp))
-
--- point free nonsense
-reflVelWallDamp :: Float -> Wall -> Point2 -> Point2
-reflVelWallDamp x = reflectInParam x . uncurry (-.-) . _wlLine
-
--- point free nonsense
-reflVelWall :: Wall -> Point2 -> Point2
-reflVelWall = reflectIn . uncurry (-.-) . _wlLine