module Time
  ( formatCurrentLocale
  ) where

import Data.Text (Text)
import qualified Data.Text as T
import Data.Time.LocalTime (getZonedTime)
import Data.Time.Format (formatTime, defaultTimeLocale)

formatCurrentLocale :: Text -> IO Text
formatCurrentLocale format =
  T.pack <$> formatTime defaultTimeLocale (T.unpack format) <$> getZonedTime