This commit is contained in:
nek0 2021-07-08 19:16:56 +02:00
parent d7373e0c28
commit 26e6825d0e
2 changed files with 2 additions and 9 deletions

View File

@ -184,10 +184,7 @@ class (Show c, Mass c) => Collidible c where
"Unhandled combination of collision check results: "
<> (fromString $ show x)
in
-- res
if tx < 0 || ty < 0
then A.log A.Debug ("PING!") res
else res
res
-- case res of
-- Collision _ _ ->
-- A.log A.Debug "colliding!" res

View File

@ -31,8 +31,6 @@ update
update level dt = liftIO $ do
logIO Debug ("FPS: " <> fromString (show $ 1 / dt))
-- Let all Actors update themselves and check for collisions
-- (Typeclasses rock!)
atomically $ do
lmap <- readTMVar (testMap level)
cast <-
@ -94,10 +92,8 @@ update level dt = liftIO $ do
in
(aindex, res)
in
tangibles `V.update` (A.log A.Debug
("Partner: " <> (fromString $ show collisionPartners))
tangibles `V.update`
(V.map updater collisionPartners)
)
(newCast, newPowerups, mnewCat@(Just _)) = V.foldl
(\acc@(castAcc, puAcc, mcat) input ->
case input of