Data.Duration

Documentation

humanReadableDuration :: Int -> String

humanReadableDuration take some time in micro-seconds and render a human readable duration.

let duration = 2 * ms + 3 * oneSecond + 2 * minute + 33*day + 2*year
humanReadableDuration duration
-- will return: "2 years 33 days 2 min 3s 32ms"

ms :: Int

 number of micro seconds in one millisecond

oneSecond :: Int

 number of micro seconds in one second

minute :: Int

 number of micro seconds in one minute

hour :: Int

 number of micro seconds in one hour

day :: Int

 number of micro seconds in one day

year :: Int

 number of micro seconds in one year

getMs :: Int -> Int

 number of milli seconds given a duration in micro seconds

getSeconds :: Int -> Int

 number of seconds given a duration in micro seconds

getMinutes :: Int -> Int

 number of minutes given a duration in micro seconds

getHours :: Int -> Int

 number of hours given a duration in micro seconds

getDays :: Int -> Int

 number of days given a duration in micro seconds

getYears :: Int -> Int

 number of years given a duration in micro seconds