collision corner case

This commit is contained in:
nek0 2021-04-29 20:52:56 +02:00
parent 6633fffb30
commit 865e931a43

View file

@ -145,6 +145,8 @@ class (Show c, Mass c) => Collidible c where
NoCollision NoCollision
(_, _, _, False, False) -> (_, _, _, False, False) ->
NoCollision NoCollision
(_, _, True, _, _) ->
A.log A.Debug ("CORNER CASE!") NoCollision
x -> error $ x -> error $
"Unhandled combination of collision check results: " "Unhandled combination of collision check results: "
<> (fromString $ show x) <> (fromString $ show x)