From 03a577fd1847ee909e3496d1470084068347a26f Mon Sep 17 00:00:00 2001 From: nek0 Date: Thu, 29 Apr 2021 02:18:30 +0200 Subject: [PATCH] reduce debug output --- src/Classes/Physics/Collidible.hs | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/src/Classes/Physics/Collidible.hs b/src/Classes/Physics/Collidible.hs index 180a722..3597272 100644 --- a/src/Classes/Physics/Collidible.hs +++ b/src/Classes/Physics/Collidible.hs @@ -145,11 +145,11 @@ class (Show c, Mass c) => Collidible c where NoCollision (_, _, _, False, False) -> NoCollision + x -> error $ + "Unhandled combination of collision check results: " + <> (fromString $ show x) in - A.log A.Debug - (fromString $ - show (tx < dt, ty < dt, tx < ty, coll True, coll False)) - res + res else NoCollision