blob: e78d54034cbb728788c8236527e5a5c61aa8d37f (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
|
module System.Utility.H9Clock.Time
( getLocalTimeSec
, getHourMin
)
where
import Data.Time
getLocalTimeSec :: IO TimeOfDay
getLocalTimeSec =
localTimeOfDay
<$> (utcToLocalTime <$> getCurrentTimeZone <*> getCurrentTime)
getHourMin :: IO (Int, Int)
getHourMin = do localTime <- getLocalTimeSec
return (todHour localTime, todMin localTime)
|
