24 Days of Hackage: time

If there’s one task I don’t have time for these days, it’s dealing with time. Time is a classic example of a problem that appears simple on the outside, but is full of all sorts of complicated details when you really start working with it. Naturally, these problems only manifest themselves years down the line, when you’ve already committed to a broken implementation. Considering all of that, I want as little as possible to do with time, so I turn to a library rather than doing it myself. Today, we’ll have a look at Ashley Yakeley’s time library.

time does a great job of abstracting away the aforementioned tricky details into a powerful, type safe library. There are four main namespaces within this library:

Data.Time.Calendar deals with days in a calendar, and arithmetic on calendar dates. There is the common Gregorian calendar that we’re all familiar with, the Julian calendar that predated this, and a few other modules for other ways of managing dates (especially ISO 8601).

Data.Time.Clock deals with times in UT1, which is (loosely speaking) time measured by the Earth, “adjusted for various wobbles”. This is the time that we as humans are most familiar with. This module exposes constructors for building time values, along with functions for time arithmetic. By default, the module at the top of this namespace ignores leap seconds, but if you do need this, there is always Data.Time.Clock.TAI which allows working with leap seconds.

Data.Time.Format exposes an API to the standard strftime -like interface for reading and formatting times and dates.

Date.Time.LocalTime introduces some types for working with time zones, and converting between the types offered by time .

Not only does time come with all of these data types and functions, it provides instances for a lot of the type classes offered by the Haskell prelude - and this can often be one of the hardest things to understand when first approaching this library. Let’s take stock of the most important type classes, and see how time uses them:

Enum gives us the ability to enumerate values, and this is what Haskell uses to desugar [a..b] . We can enumerate days in the Gregorian calendar (which lets us ask for the day before or after a given day), and we can enumerate durations of time (where the successor of a duration is one picosecond).

Num gives us the ability to add, subtract and multiply values, and also gives us the ability to convert literal numbers in source code to other data types. This is very useful when working with intervals of time - we can say 5 :: NominalDiffTime to construct a value that represents a 5 second interval.

Fractional is for dealing with fractional values, and let us interpret float point literals. For example, if we want a value that represents half a second, we can use 0.5 :: NominalDiffTime .

Real allows converting to a Rational number, and RealFrac allow us to round values into an Integral value. A lot of the data types in time don’t have Integral instances , but we can use fromIntegral to convert into the Num type class, which we do have instances of.

That’s a lot to take in, so lets see how this all plays out in practice. First of all, lets take our current time as a starting point. There are two ways of thinking about “current time” - our time as we see it on our own clocks (the time in our time zone), or the current time in UTC. For me, my timezone is currently UTC anyway, so we’ll work with the current UTC time:

<- getCurrentTime myTimegetCurrentTime putStrLn $ "It's currently: " ++ show myTime myTime

Next, we’d like to answer the question: what will the time be 5 hours from now? We already have a value to represent “now” (of type UTCTime ), so we need a way to represent “5 hours” and a way to combine the two. “5 hours” is a time interval, so we can use NominalDiffTime for this. However, looking at the library, it doesn’t seem possible to create these values! This is where the type classes come into play - remember how we said that Num lets use treat literals as time data types? The Num instance for NominalDiffTime is used for converting from an amount of seconds, so with a little arithmetic we can represent 5 hours:

let fiveHours = 5 * 60 * 60 fiveHours

To offset a UTCTime with a NominalDiffTime we can’t use the normal (+) operator, because this is only supported for values of the same type . time exports the addUTCTime :: NominalDiffTime -> UTCTime -> UTCTime , which is exactly what we want:

let later = fiveHours `addUTCTime` myTime laterfiveHoursmyTime putStrLn $ "Five hours later it will be: " ++ show later later

Now we see:

It's currently: 2013-12-15 14:03:18.095702 UTC Five hours later it will be: 2013-12-15 19:03:18.095702 UTC

Perfect! The default show instance is a little bit complex though, so lets see if we can format this a bit better. I’d like to see a much more British time, preferably “15/12/2013 7:03 PM”. This is a breeze with Data.Time.Format :

let format = formatTime defaultTimeLocale "%Y/%m/%e %l:%M %P" formatformatTime defaultTimeLocale putStrLn $ "Formatted, that is: " ++ format later format later

Now, the output is:

It's currently : 2013 - 12 - 15 14 : 07 : 23.964489 UTC currently Five hours later it will be : 2013 - 12 - 15 19 : 07 : 23.964489 UTC hours later it will be Formatted , that is : 2013 / 12 / 15 7 : 07 pm , that ispm

Finally, how about finding how many days we have to wait until Santa comes? We could parse this as a UTCTime , but we really only care about calendar days. To turn 2013/12/25 into a date, we use fromGregorian :

let christmasDay = fromGregorian 2013 12 25 christmasDayfromGregorian

To turn the current time into the calendar day, we can use utctDay to extract the day. To find out the difference of two days, we can’t use (-) for similar reasons, but we do have diffDays out our disposal:

let n = christmasDay `diffDays` utctDay myTime christmasDayutctDay myTime putStrLn $ "Only " ++ show n ++ " days to go until Christmas!"

And a final run of our application shows:

It's currently : 2013 - 12 - 15 14 : 12 : 20.841326 UTC currently Five hours later it will be : 2013 - 12 - 15 19 : 12 : 20.841326 UTC hours later it will be Formatted , that is : 2013 / 12 / 15 7 : 12 pm , that ispm Only 10 days to go until Christmas ! days to go

Which puts me into blind panic as I realise… I still haven’t got my family their gifts!

You can contact me via email at ollie@ocharles.org.uk or tweet to me @acid2. I share almost all of my work at GitHub. This post is licensed under a Creative Commons Attribution-NonCommercial-NoDerivs 3.0 Unported License.