ghc/misc/examples/io/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'