ghc/tests/io/should_run/io020.hs

   1 import Time
   2
   3 main :: IO ()
   4 main = do
   5     time <- getClockTime
   6     let (CalendarTime year month mday hour min sec psec
   7                       wday yday timezone gmtoff isdst) = toUTCTime time
   8         time' = toClockTime (CalendarTime (year - 1) month mday hour min sec psec
   9                              wday yday timezone gmtoff isdst)
  10     print (length (show time) == length (show time'))