1-- | 2-- Module : Data.Hourglass.Compat 3-- License : BSD-style 4-- Maintainer : Nicolas DI PRIMA <nicolas@di-prima.fr> 5-- 6-- Basic Time conversion compatibility. 7-- 8-- This module aims to help conversion between the types from the package 9-- time to the package hourglass. 10-- 11-- Example of use (extracted from file Example/Time/Compat.hs): 12-- 13-- > import Data.Hourglass as H 14-- > import Data.Hourglass.Compat as C 15-- > import Data.Time as T 16-- > 17-- > transpose :: T.ZonedTime 18-- > -> H.LocalTime H.DateTime 19-- > transpose oldTime = 20-- > H.localTime 21-- > offsetTime 22-- > (H.DateTime newDate timeofday) 23-- > where 24-- > newDate :: H.Date 25-- > newDate = C.dateFromTAIEpoch $ T.toModifiedJulianDay $ T.localDay $ T.zonedTimeToLocalTime oldTime 26-- > 27-- > timeofday :: H.TimeOfDay 28-- > timeofday = C.diffTimeToTimeOfDay $ T.timeOfDayToTime $ T.localTimeOfDay $ T.zonedTimeToLocalTime oldTime 29-- > 30-- > offsetTime = H.TimezoneOffset $ fromIntegral $ T.timeZoneMinutes $ T.zonedTimeZone oldTime 31-- 32-- This module will be depreciated in favor of Time.Compat 33-- 34module Data.Hourglass.Compat 35 ( module Time.Compat 36 ) where 37 38import Time.Compat 39