blob: 99d47d00784be365eda27aaaa3ce3c2400642fd0 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
|
module Time
( getCurrentFormattedTime
) where
import Data.Text (Text)
import qualified Data.Text as T
import Data.Time.LocalTime (getZonedTime)
import Data.Time.Format (formatTime, defaultTimeLocale)
getCurrentFormattedTime :: IO Text
getCurrentFormattedTime = do
zonedTime <- getZonedTime
return (T.pack $ formatTime defaultTimeLocale "%Hh%M" zonedTime)
|
