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