de-parallelize drawing
This commit is contained in:
parent
6452804270
commit
d9735e72e9
1 changed files with 2 additions and 1 deletions
|
@ -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
|
||||
)
|
||||
|
|
Loading…
Reference in a new issue