ghc/tests/io/should_run/io020.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 (length (show time)) >>
  11         putChar '\n' >>
  12         print (length (show time')) >>
  13         putChar '\n'