mrkkrp/megaparsec
1
1
Fork 0
mirror of https://github.com/mrkkrp/megaparsec.git synced 2024-11-23 19:38:05 +03:00
Code Issues Projects Releases Wiki Activity

fix failing tests for ‘sepEndBy’ and ‘sepEndBy1’

Browse Source
This commit is contained in:
mrkkrp 2015-10-20 16:50:33 +06:00
parent 8dce9cdc5d
commit 84223f2947
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
tests/Combinator.hs
View File

@ -187,7 +187,7 @@ prop_sepEndBy n' c' = checkParser p r s
p = sepEndBy (char 'a') (char '-')
a = Right $ replicate n 'a'
r | isNothing c' = a
| c == 'a' && n == 0 = a
| c == 'a' && n == 0 = Right "a"
| n == 0 = posErr 0 s [uneCh c, exCh 'a', exEof]
| c == '-' = a
| otherwise = posErr (g n) s [uneCh c, exCh '-', exEof]
@ -201,7 +201,7 @@ prop_sepEndBy1 n' c' = checkParser p r s
a = Right $ replicate n 'a'
r | isNothing c' && n >= 1 = a
| isNothing c' = posErr 0 s [uneEof, exCh 'a']
| c == 'a' && n == 0 = a
| c == 'a' && n == 0 = Right "a"
| n == 0 = posErr 0 s [uneCh c, exCh 'a']
| c == '-' = a
| otherwise = posErr (g n) s [uneCh c, exCh '-', exEof]