{-# LANGUAGE OverloadedStrings #-}

module Data.Text.Time.Format
    ( formatISODateTime
    ) where

import Data.Text.Lazy (Text)
import Formatting (format, (%))
import Formatting.Time (dateDash, hms)
import Data.Time ( UTCTime )


-- | Format ISO date.
formatISODateTime :: UTCTime -> Text
formatISODateTime :: UTCTime -> Text
formatISODateTime UTCTime
utc = forall a. Format Text a -> a
format (forall a r. FormatTime a => Format r (a -> r)
dateDash forall r a r'. Format r a -> Format r' r -> Format r' a
% Format (UTCTime -> Text) (UTCTime -> Text)
"T" forall r a r'. Format r a -> Format r' r -> Format r' a
% forall a r. FormatTime a => Format r (a -> r)
hms) UTCTime
utc UTCTime
utc