projects
/
ghc-hetmet.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
eb6451dd734512c3e58ee75132ba675cd69fa2af
[ghc-hetmet.git]
/
ghc
/
tests
/
lib
/
posix
/
posix006.hs
1
import Posix
2
3
main =
4
epochTime >>= \ start ->
5
sleep 5 >>
6
let timeleft = 0 in
7
epochTime >>= \ finish ->
8
putStr "Started: " >>
9
print start >>
10
putStr "\nSlept: " >>
11
print (5 - timeleft) >>
12
putStr "\nFinished: " >>
13
print finish >>
14
putChar '\n'