dateEncoderV0 :: Day -> E.Encoding
dateEncoderV0 (y, m, d) =
  E.encodeListLen 3 <> E.encodeInt32 (fromIntegral y) <>
  E.encodeInt8 (fromIntegral m) <>
  E.encodeInt8 (fromIntegral d)
dateEncoderV0 :: Day -> E.Encoding
dateEncoderV0 (y, m, d) =
  E.encodeListLen 3 <> E.encodeInt32 (fromIntegral y) <>
  E.encodeInt8 (fromIntegral m) <>
  E.encodeInt8 (fromIntegral d)
dateEncoderV0 (y, m, d) =
  E.encodeListLen 3 <> E.encodeInt32 (fromIntegral y) <>
  E.encodeInt8 (fromIntegral m) <>
  E.encodeInt8 (fromIntegral d)