collision corner case

This commit is contained in:
nek0 2021-04-29 20:52:56 +02:00
parent 6633fffb30
commit 865e931a43
1 changed files with 2 additions and 0 deletions

View File

@ -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)