parseDate :: Parser Day
parseDate = do year <- decimal
               char '.'
               month <- decimal
               char '.'
               day <- decimal
               return (fromGregorian year month day)

-- | Parse the time of day.
parseDate :: Parser Day
parseDate = do year <- decimal
               char '.'
               month <- decimal
               char '.'
               day <- decimal
               return (fromGregorian year month day)

-- | Parse the time of day.
parseDate = do year <- decimal
               char '.'
               month <- decimal
               char '.'
               day <- decimal
               return (fromGregorian year month day)

-- | Parse the time of day.