@@ -226,10 +226,9 @@ parseM :: Y.Anchor
226226 -> M.HashMap Text Value
227227 -> ConduitM Event o Parse Value
228228parseM a front = do
229− me <- CL.peek
229+ me <- CL.head
230230 case me of
231231 Just EventMappingEnd -> do
232− CL.drop 1
233232 let res = Object front
234233 case a of
235234 Nothing -> return res
@@ -237,7 +236,6 @@ parseM a front = do
237236 lift $ modify $ Map.insert an res
238237 return res
239238 _ -> do
240− CL.drop 1
241239 s <- case me of
242240 Just (EventScalar v tag style a') -> parseScalar v a' style tag
243241 Just (EventAlias an) -> do