ghc/tests/io/should_run/po008.hs

   1 import Posix
   2
   3 main =
   4     installHandler realTimeAlarm (Catch alarmclock) Nothing >>
   5     putStr "Scheduling an alarm in 5 seconds...\n" >>
   6     scheduleAlarm 5 >>
   7     putStr "Sleeping one minute.\n" >>
   8     sleep 60 >>
   9     putStr "How did I get here?\n"
  10
  11 alarmclock =
  12     putStr "The alarm went off.\n"