reduce debug output

2021-04-29 02:18:30 +02:00 · 2021-04-29 02:18:30 +02:00 · 03a577fd18
commit 03a577fd18
parent 6f816eedef
1 changed files with 4 additions and 4 deletions
--- 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