clean

src/Physics/Classes/Collidible.hs

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

src/Scenes/Test/Update.hs

@@ -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
+            tangibles `V.update`
-              ("Partner: " <> (fromString $ show collisionPartners))
               (V.map updater collisionPartners)
-              )
         (newCast, newPowerups, mnewCat@(Just _)) = V.foldl
           (\acc@(castAcc, puAcc, mcat) input ->
             case input of