json - Haskell Data.Decimal 作为 Aeson 类型

Question

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

假设我有以下 JSON:

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

以及以下记录类型:

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

和

instance FromJSON test
instance ToJSON test

如果不是 Data.Decimal，这会起作用值“foo”。

据我所知，我需要手动创建一个 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"