Time.hs

    {-# LANGUAGE CPP #-}
    #if __GLASGOW_HASKELL__ >= 701
    {-# LANGUAGE Trustworthy #-}
    #endif

    module Time (
            ClockTime,
            Month(January,February,March,April,May,June,
                  July,August,September,October,November,December),
            Day(Sunday,Monday,Tuesday,Wednesday,Thursday,Friday,Saturday),
            CalendarTime(CalendarTime, ctYear, ctMonth, ctDay, ctHour, ctMin,
                         ctSec, ctPicosec, ctWDay, ctYDay, ctTZName, ctTZ, ctIsDST),
            TimeDiff(TimeDiff, tdYear, tdMonth, tdDay, tdHour,
                     tdMin, tdSec, tdPicosec),
            getClockTime, addToClockTime, diffClockTimes,
            toCalendarTime, toUTCTime, toClockTime,
            calendarTimeToString, formatCalendarTime
        ) where

    import System.Time