mrkkrp/megaparsec
1
1
Fork 0
mirror of https://github.com/mrkkrp/megaparsec.git synced 2025-01-07 08:47:15 +03:00
Code Issues Projects Releases Wiki Activity

improve indentation for readability

Browse Source
This commit is contained in:
mrkkrp 2015-08-24 16:38:00 +06:00
parent a891ff6522
commit d431b396f4
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
Text/Megaparsec/Prim.hs
View File

@ -576,10 +576,10 @@ token nextpos test = ParsecT $ \(State input pos u) cok _ _ eerr -> do
Nothing -> eerr $ unexpectedErr eoi pos Nothing -> eerr $ unexpectedErr eoi pos
Just (c,cs) -> Just (c,cs) ->
case test c of case test c of
Just x -> let newpos = nextpos pos c cs Just x -> let newpos = nextpos pos c cs
newstate = State cs newpos u newstate = State cs newpos u
in seq newpos $ seq newstate $ cok x newstate mempty in seq newpos $ seq newstate $ cok x newstate mempty
Nothing -> eerr $ unexpectedErr (showToken c) pos Nothing -> eerr $ unexpectedErr (showToken c) pos
-- | The parser @tokens posFromTok@ parses list of tokens and returns -- | The parser @tokens posFromTok@ parses list of tokens and returns
-- it. The resulting parser will use 'showToken' to pretty-print the -- it. The resulting parser will use 'showToken' to pretty-print the