@@ -18,13 +18,13 @@ instance NFData J.JSValue where
1818 rnf (J.JSArray lst) = rnf lst
1919 rnf (J.JSObject o) = rnf o
2020
21−encodeJ :: J.JSObject J.JSValue -> Int
21+encodeJ :: J.JSValue -> Int
2222encodeJ = length . J.encode
2323
2424encodeA :: A.Value -> Int64
2525encodeA = BL.length . A.encode
2626
27−decodeJ :: String -> J.JSObject J.JSValue
27+decodeJ :: String -> J.JSValue
2828decodeJ s =
2929 case J.decodeStrict s of
3030 J.Ok v -> v