json – Haskell Data.Decimal作为Aeson类型

是否可以使用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值“foo”,这将有效.

根据我的理解,我需要手动创建一个FromJSON和ToJSON(用于转换回JSON)Data.Decimal的实例,因为它不是从Generic派生的.我怎样才能做到这一点？

提前致谢.

解决方法

我知道这是一个旧线程,但可能会帮助某人.这是我如何将十进制转换为/从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"