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)