module Data.Thyme.Clock (
DiffTime
, microsecondsToDiffTime
, UTCTime, UTCView (..)
, utcTime
, NominalDiffTime
, module Data.Thyme.Clock
, _utctDay, _utctDayTime
) where
import Prelude
import Control.Lens
import Data.Thyme.Clock.Scale
import Data.Thyme.Clock.UTC
import Data.Thyme.Clock.POSIX
#if !SHOW_INTERNAL
import Data.Thyme.LocalTime.Internal
import Data.Thyme.LocalTime.TimeZone
#endif
#if SHOW_INTERNAL
instance Show UTCTime where
showsPrec p = showsPrec p . view utcTime
#else
instance Show UTCTime where
showsPrec p = showsPrec p . view (utcLocalTime utc)
#endif
getCurrentTime :: IO UTCTime
getCurrentTime = fmap (review posixTime) getPOSIXTime