From d9735e72e990838a0684e36a6c228b85233fd017 Mon Sep 17 00:00:00 2001 From: nek0 Date: Thu, 7 Mar 2019 16:31:16 +0100 Subject: [PATCH] de-parallelize drawing --- src/MainGame/WorldMap.hs | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/src/MainGame/WorldMap.hs b/src/MainGame/WorldMap.hs index df111b7..645ed00 100644 --- a/src/MainGame/WorldMap.hs +++ b/src/MainGame/WorldMap.hs @@ -636,7 +636,8 @@ drawMap = do (fromIntegral row - pr)) * (tileWidth / 2) :: CFloat sy row col = realToFrac $ 360 - (tileHeight / 2) + ((fromIntegral row - pr) - (fromIntegral col - pc)) * (tileHeight / 2) :: CFloat - void $ sequence $ parMap rpar + -- void $ sequence $ parMap rpar + mapM_ (\((row, col), tile, posanim) -> drawTile ud ctx posanim pr pc row col tile )