@@ -249,12 +249,12 @@ parseM a front = do
249 al' = if s == pack "<<"
249 al' = if s == pack "<<"
250 then case o of
250 then case o of
251 Object l -> M.union front l
251 Object l -> M.union front l
252− Array l -> M.union front $ foldl merge' M.empty $ V.toList l
252+ Array l -> M.union front $ foldl mergeObjects M.empty $ V.toList l
255 parseM a al'
255 parseM a al'
256− where merge' al (Object om) = M.union al om
256+ where mergeObjects al (Object om) = M.union al om
257− merge' al _ = al
257+ mergeObjects al _ = al
259decodeHelper :: FromJSON a
259decodeHelper :: FromJSON a
260 => ConduitM () Y.Event Parse ()
260 => ConduitM () Y.Event Parse ()