@@ -226,10 +226,9 @@ parseM :: Y.Anchor
226 -> M.HashMap Text Value
226 -> M.HashMap Text Value
227 -> ConduitM Event o Parse Value
227 -> ConduitM Event o Parse Value
228parseM a front = do
228parseM a front = do
229− me <- CL.peek
229+ me <- CL.head
230 case me of
230 case me of
231 Just EventMappingEnd -> do
231 Just EventMappingEnd -> do
233 let res = Object front
232 let res = Object front
234 case a of
233 case a of
235 Nothing -> return res
234 Nothing -> return res
@@ -237,7 +236,6 @@ parseM a front = do
237 lift $ modify $ Map.insert an res
236 lift $ modify $ Map.insert an res
238 return res
237 return res
241 s <- case me of
239 s <- case me of
242 Just (EventScalar v tag style a') -> parseScalar v a' style tag
240 Just (EventScalar v tag style a') -> parseScalar v a' style tag
243 Just (EventAlias an) -> do
241 Just (EventAlias an) -> do