thyme-0.2.4.1: src/Data/Thyme/LocalTime/TimeZone.hs

module Data.Thyme.LocalTime.TimeZone (
    -- * Time zones
      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

{-# INLINEABLE getTimeZone #-}
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

{-# INLINE getCurrentTimeZone #-}
getCurrentTimeZone :: IO T.TimeZone
getCurrentTimeZone = getCurrentTime >>= getTimeZone