@@ -245,7 +245,7 @@ parseBreakD (PRD.Parser pstep initial extract) stream@(Stream step state) = do
245 PR.Error err ->
245 PR.Error err ->
246 return (Left (ParseError err), Stream step s)
246 return (Left (ParseError err), Stream step s)
247 Skip s -> go SPEC s buf pst
247 Skip s -> go SPEC s buf pst
248− Stop -> goStop buf pst
248+ Stop -> goStop SPEC buf pst
250 go1 _ s x !pst = do
250 go1 _ s x !pst = do
251 pRes <- pstep pst x
251 pRes <- pstep pst x
@@ -306,7 +306,7 @@ parseBreakD (PRD.Parser pstep initial extract) stream@(Stream step state) = do
308 -- This is simplified gobuf
308 -- This is simplified gobuf
309− goExtract !_ buf (List []) !pst = goStop buf pst
309+ goExtract !_ buf (List []) !pst = goStop SPEC buf pst
310 goExtract !_ buf (List (x:xs)) !pst = do
310 goExtract !_ buf (List (x:xs)) !pst = do
311 pRes <- pstep pst x
311 pRes <- pstep pst x
312 case pRes of
312 case pRes of
@@ -336,11 +336,11 @@ parseBreakD (PRD.Parser pstep initial extract) stream@(Stream step state) = do
336 -- This is simplified goExtract
336 -- This is simplified goExtract
337 -- XXX Use SPEC?
337 -- XXX Use SPEC?
338 {-# INLINE goStop #-}
338 {-# INLINE goStop #-}
339− goStop buf pst = do
339+ goStop _ buf pst = do
340 pRes <- extract pst
340 pRes <- extract pst
341 case pRes of
341 case pRes of
342 PR.Partial _ _ -> error "Bug: parseBreak: Partial in extract"
342 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
344 PR.Continue n pst1 -> do
344 PR.Continue n pst1 -> do
345 assert (n <= length (getList buf)) (return ())
345 assert (n <= length (getList buf)) (return ())
346 let (src0, buf1) = splitAt n (getList buf)
346 let (src0, buf1) = splitAt n (getList buf)