Haskell async with blocking print

Question

我有一個IO操作列表，我想同時執行，所以我使用的是async包中的mapConcurrently。
我的IO操作包括print表達式，例如：

processLink :: String -> IO() 
processLink link = do 
result <- fetchLink 
print $ "Link " ++ link ++ "has been processed" 

在我main我有類似：

main :: IO() 
main = do 
    _ <- mapConcurrently (processLink) links 
    print "Done!" 

一切都在並行精美的執行，但似乎print中也執行並行字符，所以我在輸出中得到垃圾。
我想我明白爲什麼會發生 - print一次輸出一個字符，所以當它從多個線程執行時，所有輸出都是交錯的。

什麼是解決它的典型方法？

Answer 1

貌似的this問題進行重複數據刪除 - 鏈接代碼：

do mutex <- newMVar() 
    let putStrLn' = withMVar mutex . const . putStrLn 
    mapConcurrently_ (iofunPrintingWith putStrLn') folderList