reduce debug output

movable_objects2
nek0 1 year ago
parent 6f816eedef
commit 03a577fd18
  1. 8
      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

Loading…
Cancel
Save