Question

是否可以使用Aeson包从JSON解析Data.Decimal？

假设我有以下JSON：

{
    "foo": 5.231,
    "bar": "smth"
}

以下记录类型：

data test { foo :: Data.Decimal
          , bar :: String } deriving Generic

与

instance FromJSON test
instance ToJSON test

如果不是Data.Decimal值＆＃34; foo＆＃34;

，这将有效。

根据我的理解，我需要手动创建一个FromJSON和ToJSON（用于转换回JSON）Data.Decimal的实例，因为它不是从Generic派生的。我怎么能这样做？

提前致谢。

Answer 1

我知道这是一个老线程，但可能对某人有所帮助。这是我如何将十进制转换为/从json转换（我从一堆其他代码中汇集了这些代码，我现在没有源代码）：

instance A.ToJSON (DecimalRaw Integer) where
  -- maybe this is not the best, but it works
  toJSON d = A.toJSON $ show d

instance A.FromJSON (DecimalRaw Integer) where
  parseJSON = A.withText "Decimal" (go . (read :: String -> [(DecimalRaw Integer, String)]) . T.unpack)
    where
      go [(v, [])] = return v
      go (_ : xs) = go xs
      go _ = fail "Could not parse number"

Haskell Data.Decimal作为Aeson类型

1 个答案: