ghc/tests/io/should_run/po006.hs

   1 import Posix
   2
   3 main =
   4     epochTime >>= \ start ->
   5     sleep 5 >>
   6     let timeleft = 0 in
   7     epochTime >>= \ finish ->
   8     putStr "Started: " >>
   9     print start >>
  10     putStr "\nSlept: " >>
  11     print (5 - timeleft) >>
  12     putStr "\nFinished: " >>
  13     print finish >>
  14     putChar '\n'