From cd303affc8683c330ed6538269ee2914263ddbad Mon Sep 17 00:00:00 2001 From: nek0 Date: Sat, 2 Jan 2021 23:17:53 +0100 Subject: [PATCH] fix remnants --- src/Classes/Physics/Collidible.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/src/Classes/Physics/Collidible.hs b/src/Classes/Physics/Collidible.hs index eb8f1da..5628cab 100644 --- a/src/Classes/Physics/Collidible.hs +++ b/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 =