blob: e2f9bcb7a7a47857d6da5b733c004672a23eeb25 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
|
import System.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."
|
