@@ -245,7 +245,7 @@ parseBreakD (PRD.Parser pstep initial extract) stream@(Stream step state) = do
245245 PR.Error err ->
246246 return (Left (ParseError err), Stream step s)
247247 Skip s -> go SPEC s buf pst
248− Stop -> goStop buf pst
248+ Stop -> goStop SPEC buf pst
249249
250250 go1 _ s x !pst = do
251251 pRes <- pstep pst x
@@ -306,7 +306,7 @@ parseBreakD (PRD.Parser pstep initial extract) stream@(Stream step state) = do
306306 )
307307
308308 -- This is simplified gobuf
309− goExtract !_ buf (List []) !pst = goStop buf pst
309+ goExtract !_ buf (List []) !pst = goStop SPEC buf pst
310310 goExtract !_ buf (List (x:xs)) !pst = do
311311 pRes <- pstep pst x
312312 case pRes of
@@ -336,11 +336,11 @@ parseBreakD (PRD.Parser pstep initial extract) stream@(Stream step state) = do
336336 -- This is simplified goExtract
337337 -- XXX Use SPEC?
338338 {-# INLINE goStop #-}
339− goStop buf pst = do
339+ goStop _ buf pst = do
340340 pRes <- extract pst
341341 case pRes of
342342 PR.Partial _ _ -> error "Bug: parseBreak: Partial in extract"
343− PR.Continue 0 pst1 -> goStop buf pst1
343+ PR.Continue 0 pst1 -> goStop SPEC buf pst1
344344 PR.Continue n pst1 -> do
345345 assert (n <= length (getList buf)) (return ())
346346 let (src0, buf1) = splitAt n (getList buf)