module Data.Thyme.LocalTime.TimeZone (
T.TimeZone (..)
, T.timeZoneOffsetString
, T.timeZoneOffsetString'
, T.minutesToTimeZone
, T.hoursToTimeZone
, T.utc
, module Data.Thyme.LocalTime.TimeZone
) where
import Prelude
import Control.Lens
import Data.Thyme.Calendar
import Data.Thyme.Clock
import qualified Data.Time as T
getTimeZone :: UTCTime -> IO T.TimeZone
getTimeZone time = T.getTimeZone (T.UTCTime day dayTime) where
day = T.ModifiedJulianDay (fromIntegral mjd)
dayTime = fromRational (simply view seconds dt)
UTCTime (ModifiedJulianDay mjd) dt = view utcTime time
getCurrentTimeZone :: IO T.TimeZone
getCurrentTimeZone = getCurrentTime >>= getTimeZone