ghc/tests/lib/IORef/ioref001.hs

   1 {-# OPTIONS -fglasgow-exts #-}
   2
   3 module Main where
   4
   5 import IORef
   6
   7 loop r 0 = return ()
   8 loop r c = loop r (c-1) >> writeIORef r 42
   9
  10 main = newIORef 0 >>= \r -> loop r 1000000 >> putStrLn "done"