dateDecoderV0 :: D.Decoder s Day
dateDecoderV0 = do
  D.decodeListLenOf 3
  y <- fromIntegral <$> D.decodeInt32
  m <- fromIntegral <$> D.decodeInt8
  d <- fromIntegral <$> D.decodeInt8
  pure (y, m, d)
dateDecoderV0 :: D.Decoder s Day
dateDecoderV0 = do
  D.decodeListLenOf 3
  y <- fromIntegral <$> D.decodeInt32
  m <- fromIntegral <$> D.decodeInt8
  d <- fromIntegral <$> D.decodeInt8
  pure (y, m, d)
dateDecoderV0 = do
  D.decodeListLenOf 3
  y <- fromIntegral <$> D.decodeInt32
  m <- fromIntegral <$> D.decodeInt8
  d <- fromIntegral <$> D.decodeInt8
  pure (y, m, d)