blob: d3c3e42ad34fe3f3e57f919f21d3e42ce29b001a (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
|
import Time
-- !!! check that we can read the current ClockTime, convert it
-- !!! to CalendarTime and back again, and that all three times when
-- !!! converted to strings compare equal.
main = do
t <- getClockTime
let clock = show t
c <- toCalendarTime t
let cal = calendarTimeToString c
let t2 = toClockTime c
clock2 = show t2
if (clock == cal && clock == clock2)
then putStrLn "Ok."
else putStrLn "Failed."
|
