deparallelize drawing

2019-03-07 16:43:00 +01:00
1 changed files with 8 additions and 3 deletions
--- a/src/MainGame/WorldMap.hs
+++ b/src/MainGame/WorldMap.hs
@ -615,9 +615,14 @@ drawMap = do
        closePath ctx
        fillColor ctx (rgb 255 255 255)
        fill ctx
-        void $ sequence $ parMap rpar (\(i, ls) -> void $ sequence $ parMap rpar
-            (\(j, t) -> drawTile ud ctx (partposanims M.! (i, j)) pr pc i j t)
-            (reverse $ zip [1..] ls))
+        -- void $ sequence $ parMap rpar
+        mapM_
+          (\(i, ls) ->
+            -- void $ sequence $ parMap rpar
+            mapM_
+              (\(j, t) -> drawTile ud ctx (partposanims M.! (i, j)) pr pc i j t)
+            (reverse $ zip [1..] ls)
+            )
          (zip [1..] (toLists mat))
        mapM_ (\(V2 sr sc, pa, perc) -> when pa $ do
          let lx = realToFrac $ 640 + ((sc - pc) +