Refactor

src/Dodge/Update.hs

@@ -97,19 +97,6 @@ updateSeenWalls w = foldr markSeen w wallsToUpdate
 setTestStringIO :: IO World -> IO World
 setTestStringIO = fmap (\ w -> set testString (show $ s w) w)
     where s w = (-.-) <$> (w ^? creatures . ix 0 . crPos) <*> (w ^? creatures . ix 0 . crOldPos)
-    -- w --do numC <- Mix.numChannelsPlaying
---                       w' <- w
---                       let ycr = _creatures w' IM.! 0
---                       let st = _stance $ _crState ycr
---                       let vel = magV $ _crPos ycr -.- _crOldPos ycr
---                       let (x,y) = zoneOfPoint $ _crPos ycr
---                       --fmap (set testString $ show (map _wlLine $ IM.elems $ _wallsZone w' IM.! x IM.! y)) w
---                       fmap (set testString $ show $ last $ show $ pairsToIncidence' $ _pathGraph' w') w
-
--- update logic: creature old position set, creatures perform actions including movement, 
--- creatures collided with each other, camera updated, projectiles updated, creatures
--- collided with walls
-
 
 checkEndGame :: World -> World
 checkEndGame w | _crHP (you w) < 1 = haltSound $ w {_menuState = GameOverMenu}