module Data.Time.Hora.Timestamp
(
now,
t,
t',
dt,
d) where
import Data.Time.Clock
import Data.Time.Hora.WithTimeZone
import Data.Time.Hora.Format
import Data.Time.Hora.Type.DmyHm
import Data.Time.Hora.Type.Time
import Data.Time.Hora.Parse
now::IO (Tz DmyHmp)
now = withTimeZone parse'
t::IO String
t = do
utc0 <- getCurrentTime
pure $ formatUTCTime hmsFraction utc0
t'::IO String
t' = do
utc0 <- getCurrentTime
pure $ formatUTCTime hmsFraction' utc0
dt::IO String
dt = do
utc0 <- getCurrentTime
pure $ formatUTCTime ymdHms utc0
d::IO (Tz String)
d = withTimeZone ymd