module Utils.Time
  ( getCurrentFormattedTime
  ) where

import           Data.Text           (Text)
import qualified Data.Text           as T

import           Data.Time.Format    (defaultTimeLocale, formatTime)
import           Data.Time.LocalTime (getZonedTime)

getCurrentFormattedTime :: IO Text
getCurrentFormattedTime = do
  zonedTime <- getZonedTime
  return (T.pack $ formatTime defaultTimeLocale "%Hh%M" zonedTime)