[project @ 1996-07-25 21:02:03 by partain]
[nofib.git] / GHC_ONLY / io020 / Main.hs
1 import Time
2
3 main =
4 getClockTime >>= \ time ->
5 let (CalendarTime year month mday hour min sec psec
6 wday yday timezone gmtoff isdst) = toUTCTime time
7 time' = toClockTime (CalendarTime (year - 1) month mday hour min sec psec
8 wday yday timezone gmtoff isdst)
9 in
10 print time >>
11 putChar '\n' >>
12 print time' >>
13 putChar '\n'