Playing with the haskell Data.Time module