Typo
[packages/base.git] / tests / ioref001.hs
1
2 module Main where
3
4 import Data.IORef
5
6 loop r 0 = return ()
7 loop r c = loop r (c-1) >> writeIORef r 42
8
9 main = newIORef 0 >>= \r -> loop r 1000000 >> putStrLn "done"