[Haskell-cafe] pattern matching on date type