reduce debug output

This commit is contained in:
nek0 2021-04-29 02:18:30 +02:00
parent 6f816eedef
commit 03a577fd18

View file

@ -145,11 +145,11 @@ class (Show c, Mass c) => Collidible c where
NoCollision NoCollision
(_, _, _, False, False) -> (_, _, _, False, False) ->
NoCollision NoCollision
x -> error $
"Unhandled combination of collision check results: "
<> (fromString $ show x)
in in
A.log A.Debug res
(fromString $
show (tx < dt, ty < dt, tx < ty, coll True, coll False))
res
else else
NoCollision NoCollision