Fixed test so it isn't version dependent.

Author: ondrap

test/ParserSpec.hs

@@ -11,6 +11,8 @@ import qualified Data.Text as T
 import Data.Text.Encoding (encodeUtf8)
 import Control.Monad (forM_)
 import Data.Text.Encoding (encodeUtf8)
+import qualified Data.Vector as Vec
+import qualified Data.HashMap.Strict as HMap
 
 import Data.JsonStream.Parser
 import Data.JsonStream.TokenParser
@@ -110,7 +112,7 @@ specEdge = describe "Edge cases" $ do
     let msg1 = "[ {\"test1\"  :[1,true,false,null,-3.591e+1,[12,13]], \"test2\":\"123\\r\\n\\\"\\u0041\"}]"
         pmsg = BL.fromChunks $ map BS.singleton msg1
         res = parseLazyByteString value pmsg :: [AE.Value]
-    show res `shouldBe` "[Array (fromList [Object fromList [(\"test2\",String \"123\\r\\n\\\"A\"),(\"test1\",Array (fromList [Number 1.0,Bool True,Bool False,Null,Number -35.91,Array (fromList [Number 12.0,Number 13.0])]))]])]"
+    res `shouldBe` [Array (Vec.fromList [Object $ HMap.fromList [("test2",String "123\r\n\"A"),("test1",Array (Vec.fromList [Number 1.0,Bool True,Bool False,Null,Number (-35.91),Array (Vec.fromList [Number 12.0,Number 13.0])]))]])]
 
   it "Correct incremental parsing 2" $ do
     let msg1 = "{\"test1\"  :[1,true,false,null,-3.591e+1,[12,13]], \"test2\":\"test2string\"}"