diff --git a/src/MainGame/WorldMap.hs b/src/MainGame/WorldMap.hs index 93f9c25..b95950e 100644 --- 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) +