From 865e931a43907cdb41f8fa774a3b391a7234006b Mon Sep 17 00:00:00 2001 From: nek0 Date: Thu, 29 Apr 2021 20:52:56 +0200 Subject: [PATCH] collision corner case --- src/Physics/Classes/Collidible.hs | 2 ++ 1 file changed, 2 insertions(+) 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)