是否可以使用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"