suppress some warnings
[packages/stm.git] / tests / conc055.hs
1 import Control.Concurrent
2 import Control.Concurrent.STM
3 import System.IO.Unsafe
4
5 var = unsafePerformIO $ atomically $ newTVar 3
6
7 main = do x <- atomically $ readTVar var; print x