make it run, not work

This commit is contained in:
nek0 2022-12-25 06:17:30 +01:00
parent 75c67a0c5a
commit 51e8de7451
2 changed files with 3 additions and 3 deletions

View File

@ -49,7 +49,7 @@ class (Show c, Mass c) => Collidible c where
collisionOccured :: c -> Bool
-- | Update the collision occurence flag
updateCollisionOccurence :: c -> (Bool -> c)
updateCollisionOccurence :: c -> Bool -> c
-- | returns the bottom left and top right corners relative to the objects
-- positional vector of the axis aligned bounding box (AABB) serving here

View File

@ -58,7 +58,7 @@ update level dt = liftIO $ do
let partners =
V.foldl
(\jacc (qInd, tangible2) ->
let res = collisionCheck dt tangible1 tangible2
let res = collisionCheck tangible1 tangible2
in
case res of
c@(OverlapCollision _) ->
@ -98,7 +98,7 @@ update level dt = liftIO $ do
d
dt
in
resetImpactForces $ resetCollisionOccurence $
resetImpactForces $ flip updateCollisionOccurence False $
if collisionOccured inter
then addLoads inter (impactForces inter)
else addLoads inter constG