Question

我有以下型号：

Conf
  productTaxRateId ProductTaxRateId Maybe
  barCodeLength Int

我已将以下json发送到服务器：

{
  "attributes": {
    "barCodeLength":25
  },
  "relationships": {
    "productTaxRate": {
      "data": {
        "id": "1",
        "type": "ProductTaxRate"
      }
    }
  },
 "id": "1",
 "type": "Conf"
}

以下是我的FromJSON：

instance FromJSON Conf where
  parseJSON (Object o) = Conf 
      <$> ((o .: "relationships") >>= (.: "productTaxRate") >>= (.: "data") >>= (.: "id"))
      <*> ((o .: "attributes") >>= (.: "barCodeLength"))
  parseJSON _ = mzero

但是我的请求中出现以下错误：

{"message":"Invalid Arguments","errors":["when expecting a Int64, encountered String instead"]}

如何正确进行转换？

提前感谢您，Haskell和Yesod非常出色。

Answer 1

我找到了一种方法来做到这一点，这很简单，我只是使用了fromPathPiece！

instance FromJSON Conf where
  parseJSON (Object o) = Conf 
      <$> fmap fromPathPiece ((o .: "relationships") >>= (.: "productTaxRate") >>= (.: "data") >>= (.: "id"))
      <*> ((o .: "attributes") >>= (.: "barCodeLength"))
  parseJSON _ = mzero

Yesod - Aeson，＆＃34;当期待Int64时，遇到String而不是＃34;

1 个答案: