Add another testcase and fix a bug in A.parseBreakChunksK

composewell · Oct 8, 2024 · 2876886 · 2876886
1 parent 7505bee
commit 2876886
Show file tree

Hide file tree

Showing 2 changed files with 8 additions and 1 deletion.
diff --git a/core/src/Streamly/Internal/Data/Array.hs b/core/src/Streamly/Internal/Data/Array.hs
@@ -976,7 +976,7 @@ parseBreakChunksK (Parser pstep initial extract) stream = do
                 let n = Prelude.length backBuf
                     arr0 = fromListN n (Prelude.reverse backBuf)
                     arr1 = Array contents cur end
-                    str = StreamK.cons arr0 (StreamK.cons arr1 stream)
+                    str = StreamK.cons arr0 (StreamK.fromPure arr1)
                 return (Left (ParseError err), str)
 
     -- This is a simplified goExtract

diff --git a/test/Streamly/Test/Data/Parser.hs b/test/Streamly/Test/Data/Parser.hs
@@ -1436,6 +1436,13 @@ parserSanityTests desc testRunner =
                 , Custom (P.Continue 10 ())
                 , Custom (P.Done 5 ())
                 ]
+        Prelude.mapM_ testRunner $
+            createPaths
+                [ Consume tapeLen
+                , Custom (P.Continue 0 ())
+                , Custom (P.Continue 10 ())
+                , Custom (P.Error "Message3")
+                ]
 
 {-
 TODO: