Commits

basvandijk  committed f9043a8

encode and decode JSValues instead of JSObjects
This is consistent with the aeson encode en decode.
This does not change the benchmark results.

  • Participants
  • Parent commits f338a6a

Comments (0)

Files changed (1)

File benchmarks/CompareWithJSON.hs

   rnf (J.JSArray lst) = rnf lst
   rnf (J.JSObject o) = rnf o
 
-encodeJ :: J.JSObject J.JSValue -> Int
+encodeJ :: J.JSValue -> Int
 encodeJ = length . J.encode
 
 encodeA :: A.Value -> Int64
 encodeA = BL.length . A.encode
 
-decodeJ :: String -> J.JSObject J.JSValue
+decodeJ :: String -> J.JSValue
 decodeJ s =
   case J.decodeStrict s of
     J.Ok v -> v