blob: 9707c58747d7aa804ad5d9647a2f150521d77248 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
|
import LibPosix
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" >>
putText (inSignalSet realTimeAlarm ints) >>
putChar '\n'
|
