diff --git a/src/Physics/Classes/Collidible.hs b/src/Physics/Classes/Collidible.hs index 9e9a7f8..5faec42 100644 --- a/src/Physics/Classes/Collidible.hs +++ b/src/Physics/Classes/Collidible.hs @@ -145,6 +145,8 @@ class (Show c, Mass c) => Collidible c where NoCollision (_, _, _, False, False) -> NoCollision + (_, _, True, _, _) -> + A.log A.Debug ("CORNER CASE!") NoCollision x -> error $ "Unhandled combination of collision check results: " <> (fromString $ show x)