ghc/tests/lib/posix/posix009.hs

   1 import Posix
   2
   3 main =
   4     putStr "Blocking real time alarms.\n" >>
   5     blockSignals (addSignal realTimeAlarm emptySignalSet) >>
   6     putStr "Scheduling an alarm in 2 seconds...\n" >>
   7     scheduleAlarm 2 >>
   8     putStr "Sleeping 5 seconds.\n" >>
   9     sleep 5 >>
  10     putStrLn "Woken up" >>
  11     getPendingSignals >>= \ ints ->
  12     putStr "Checking pending interrupts for RealTimeAlarm\n" >>
  13     print (inSignalSet realTimeAlarm ints) >>
  14     putChar '\n'
  15