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