blob: 249e58eedc1f8a58bec58362acf271e2ad9670bd (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
|
import Posix
main =
installHandler realTimeAlarm (Catch alarmclock) Nothing >>
putStr "Scheduling an alarm in 5 seconds...\n" >>
scheduleAlarm 5 >>
putStr "Sleeping one minute.\n" >>
sleep 60 >>
putStr "How did I get here?\n"
alarmclock =
putStr "The alarm went off.\n"
|
