From 0b03c306c39c0c406cb1f1af263216ff5be21694 Mon Sep 17 00:00:00 2001 From: nek0 Date: Sun, 17 Jan 2021 20:57:45 +0100 Subject: [PATCH] correct reaction --- 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 8a970e8..c77a393 100644 --- a/src/Classes/Physics/Collidible.hs +++ b/src/Classes/Physics/Collidible.hs @@ -89,8 +89,8 @@ class (Show c, Mass c) => Collidible c where then ( gt , if gx == g1 || gx == g3 - then V2 0 (round $ signum d1y) - else V2 (round $ signum d1x) 0 + then V2 (round $ signum d1x) 0 + else V2 0 (round $ signum d1y) ) else acc1 )