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 )