úÎ1Y     SafeO take some time in micro-second precision and render a human readable duration.Dlet duration = 2 * ms + 3 * oneSecond + 2 * minute + 33*day + 2*yearduration65923323.002000humanReadableDuration duration"2 years 33 days 2 min 3s 2ms"Wrapper around any  input, which works for DiffTime and NominalDiffTime from the time library, or a  of seconds.import Data.Time.Clock-humanReadableDuration' (secondsToDiffTime 10)"10s " one millisecond (0.001)ms0.001000 1000 * ms1.000000  one second (1)oneSecond / ms 1000.000000 oneSecond1.000000  number of seconds in one minuteminute / oneSecond 60.000000 minute / ms 60000.000000 number of seconds in one hour hour / minute 60.000000hour / oneSecond 3600.000000 number of seconds in one day day / hour 24.000000day / oneSecond 86400.000000 number of seconds in one year year / day 365.000000: number of milli seconds given a duration in micro secondsgetMs 11000getMs 1.6180331618 4 number of seconds given a duration in micro seconds getSeconds 11getSeconds 1.6180331 4 number of minutes given a duration in micro seconds getMinutes 601 getMinutes 590 2 number of hours given a duration in micro seconds getHours 36001getHours (60 * minute)1getHours (2 * day)48 1 number of days given a duration in micro secondsgetDays (10 * day)10getDays (240 * hour)10 2 number of years given a duration in micro secondsgetYears (720 * day)1getYears (740 * day)2    Safe     human_1KZVPmkVsoDL09Y1rWKMw1 Data.DurationData.Duration.TutorialhumanReadableDurationhumanReadableDuration'ms oneSecondminutehourdayyeargetMs getSeconds getMinutesgetHoursgetDaysgetYearsbaseGHC.RealRealghc-prim GHC.TypesDouble