ghc/misc/examples/posix/po009/Main.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     getPendingSignals >>= \ ints ->
  11     putStr "Checking pending interrupts for RealTimeAlarm\n" >>
  12     print (inSignalSet realTimeAlarm ints) >>
  13     putChar '\n'
  14