reduce debug output

This commit is contained in:
nek0 2021-04-29 02:18:30 +02:00
parent 6f816eedef
commit 03a577fd18
1 changed files with 4 additions and 4 deletions

View File

@ -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