fix remnants

src/Classes/Physics/Collidible.hs

@@ -34,12 +34,12 @@ class (Show c, Mass c) => Collidible c where
         delta2@(V2 vx2 vy2) = (dt *) <$> velocity m2
         dtx 0 = dt
         dtx vx =
-          if vx1 > 0
+          if vx > 0
           then (m2x1 - m1x2) / vx
           else (m1x1 - m2x2) / (-vx)
         dty 0 = dt
         dty vy =
-          if vy1 > 0
+          if vy > 0
           then (m2y1 - m1y2) / vy
           else (m1y1 - m2y2) / (-vy)
         posColl =