git.iko.soy/streamly
on master help sign in
Fix test case for takeBetween
8569fddRanjeet Kumar Ranjan
test/Streamly/Test/Data/Parser/ParserD.hs+1−1
compare with master
unifiedsplit
@@ -173,7 +173,7 @@ takeBetween =
173 in
173 in
174 case S.parseD (P.takeBetween m n FL.toList) (S.fromList ls) of
174 case S.parseD (P.takeBetween m n FL.toList) (S.fromList ls) of
175 Right parsed_list ->
175 Right parsed_list ->
176− if m <= list_length && n >= list_length
176+ if m <= list_length && n >= m
177 then
177 then
178 let lpl = Prelude.length parsed_list
178 let lpl = Prelude.length parsed_list
179 in checkListEqual parsed_list (Prelude.take
179 in checkListEqual parsed_list (Prelude.take