clipDate :: PartialDate -> PartialDate
clipDate (y@Year  {}) = Year . min 9999 . max 0 . year $ y
clipDate :: PartialDate -> PartialDate
clipDate (y@Year  {}) = Year . min 9999 . max 0 . year $ y
clipDate (y@Year  {}) = Year . min 9999 . max 0 . year $ y