相关疑难解决方法(0)

我在haskell中有两个执行IO的线程.(他们只打印).类似于以下内容:

thread1 :: IO ()
thread1 = putStrLn "One"

thread2 :: IO ()
thread2 = putStrLn "Two"

我目前正在获得如下结果:

OnTwoe
OTnweo

如何确保每个线程以原子方式完成其IO？