mrkkrp/megaparsec
1
1
Fork 0
mirror of https://github.com/mrkkrp/megaparsec.git synced 2024-12-25 01:07:57 +03:00
Code Issues Projects Releases Wiki Activity

use constant instead of literal string

Browse Source
This commit is contained in:
mrkkrp 2015-09-23 11:13:22 +06:00
parent fbc08037ba
commit 9adf4c7d46
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
Text/Megaparsec/Prim.hs
View File

@ -533,7 +533,7 @@ pTokens nextpos test tts = ParsecT $ \(State input pos) cok cerr _ eerr ->
in cok tts s' mempty
walk (t:ts) is rs =
let errorCont = if null is then eerr else cerr
what = bool (showToken $ reverse is) "end of input" (null is)
what = bool (showToken $ reverse is) eoi (null is)
in case uncons rs of
Nothing -> errorCont . errExpect $ what
Just (x,xs)