Easy creation of time intervals in Haskell