blob: b6045a7c4e6f352bb7330f0b25f281d79b694a6c (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
|
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)
|