collision corner case
This commit is contained in:
parent
6633fffb30
commit
865e931a43
1 changed files with 2 additions and 0 deletions
|
@ -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)
|
||||||
|
|
Loading…
Reference in a new issue