From 860b31f1d135b1e562cec224d295575e855d35f1 Mon Sep 17 00:00:00 2001 From: Adithya Kumar Date: Tue, 8 Oct 2024 11:27:55 +0530 Subject: [PATCH] Update expectedResult in parser sanity test suite --- test/Streamly/Test/Data/Parser.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/test/Streamly/Test/Data/Parser.hs b/test/Streamly/Test/Data/Parser.hs index 429c47af26..b24afeacea 100644 --- 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