[Haskell-beginners] How would you implement Instant and Interval