blob: 067d3a9f298a1989f275e54e9afcfbf36b93317c (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
|
import System.Posix.Signals
import System.Posix.Unistd
main = do
putStrLn "Blocking real time alarms."
blockSignals (addSignal realTimeAlarm reservedSignals)
putStrLn "Scheduling an alarm in 2 seconds..."
scheduleAlarm 2
putStrLn "Sleeping 5 seconds."
sleep 5
putStrLn "Woken up"
ints <- getPendingSignals
putStrLn "Checking pending interrupts for RealTimeAlarm"
print (inSignalSet realTimeAlarm ints)
|