buildDate :: Day -> Builder
buildDate (y, m, d) =
  decimal y <> singleton '-' <> dec2 m <> singleton '-' <> dec2 d
buildDate :: Day -> Builder
buildDate (y, m, d) =
  decimal y <> singleton '-' <> dec2 m <> singleton '-' <> dec2 d
buildDate (y, m, d) =
  decimal y <> singleton '-' <> dec2 m <> singleton '-' <> dec2 d