@@ -51,7 +51,7 @@ import qualified Data.ByteString.Builder as BB
5151import qualified Data.ByteString.Lazy as BL
5252import Data.ByteString.Builder.Scientific (scientificBuilder)
5353import Data.Char (toUpper, ord)
54−import Data.List
54+import qualified Data.List as List
5555import Data.Conduit ((.|), ConduitM, runConduit)
5656import qualified Data.Conduit.List as CL
5757import qualified Data.HashSet as HashSet
@@ -314,14 +314,14 @@ parseM mergedKeys a front = do
314314 if s == "<<"
315315 then case o of
316316 Object l -> return (merge l)
317− Array l -> return $ merge $ foldl' mergeObjects M.empty $ V.toList l
317+ Array l -> return $ merge $ List.foldl' mergeObjects M.empty $ V.toList l
318318 _ -> al
319319 else al
320320 parseM mergedKeys' a al'
321321 where mergeObjects al (Object om) = M.union al om
322322 mergeObjects al _ = al
323323
324− merge xs = (Set.fromList (M.keys xs \\ M.keys front), M.union front xs)
324+ merge xs = (Set.fromList (M.keys xs List.\\ M.keys front), M.union front xs)
325325
326326parseSrc :: ReaderT JSONPath (ConduitM Event Void Parse) val
327327 -> ConduitM () Event Parse ()