ghc/tests/lib/should_run/ioexts001.hs

   1 {-# OPTIONS -fglasgow-exts #-}
   2
   3 module Main where
   4
   5 import IOExts
   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"