More streaming refactoring

src/Dodge/Prop/Moving.hs

@@ -3,7 +3,7 @@ module Dodge.Prop.Moving
     , fallSmallBounceDamage
     , fallSmallBounce
     ) where
-import Dodge.Zone
+--import Dodge.Zone
 import Dodge.Base
 import Dodge.Data
 --import Dodge.Damage
@@ -58,7 +58,7 @@ fallSmallBounce' w pr
     velz = _pjVelZ pr
     vel  = _pjVel pr
     pos  = _prPos pr
-    updateWithVel v = case reflectPointWallsDamp 0.5 pos (pos + v) $ wallsAlongLine pos (pos +v) w of
+    updateWithVel v = case reflectPointWallsDamp (const True) 0.5 pos (pos + v) w of
         Nothing -> prPos +~ v
         Just (p,v') -> (prPos .~ p) . (pjVel .~ v')