@@ -18,13 +18,13 @@ instance NFData J.JSValue where
18 rnf (J.JSArray lst) = rnf lst
18 rnf (J.JSArray lst) = rnf lst
19 rnf (J.JSObject o) = rnf o
19 rnf (J.JSObject o) = rnf o
21−encodeJ :: J.JSObject J.JSValue -> Int
21+encodeJ :: J.JSValue -> Int
22encodeJ = length . J.encode
22encodeJ = length . J.encode
24encodeA :: A.Value -> Int64
24encodeA :: A.Value -> Int64
25encodeA = BL.length . A.encode
25encodeA = BL.length . A.encode
27−decodeJ :: String -> J.JSObject J.JSValue
27+decodeJ :: String -> J.JSValue
28decodeJ s =
28decodeJ s =
29 case J.decodeStrict s of
29 case J.decodeStrict s of
30 J.Ok v -> v
30 J.Ok v -> v