Update expectedResult in parser sanity test suite

composewell · Oct 8, 2024 · 18a2fff · 18a2fff
1 parent 2876886
commit 18a2fff
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/test/Streamly/Test/Data/Parser.hs b/test/Streamly/Test/Data/Parser.hs
@@ -1349,7 +1349,7 @@ tapeLen = length tape
 expectedResult :: [Move] -> (Either ParseError [Int], [Int])
 expectedResult moves = go 1 1 [] moves
     where
-    go i _ ys [] = (Right ys, [i..tapeLen])
+    go i j ys [] = (Right ys, [(max i j)..tapeLen])
     go i j ys ((Consume n):xs)
         | i + n - 1 > tapeLen = (Left (ParseError "INCOMPLETE"), tape)
         | otherwise = go (i + n) j (ys ++ [i..(i + n - 1)]) xs