diff options
| author | John MacFarlane <fiddlosopher@gmail.com> | 2013-01-25 17:59:57 -0800 |
|---|---|---|
| committer | John MacFarlane <fiddlosopher@gmail.com> | 2013-01-25 17:59:57 -0800 |
| commit | d27dc6a420845ed1b9fd0af96941a546dcd8b98d (patch) | |
| tree | bffbe925fe3ef43dbd4e38dcc9ab47b2a9cb0c21 | |
| parent | 0801b120b9d9d406c523da90697950087b2f80bc (diff) | |
| download | pandoc-d27dc6a420845ed1b9fd0af96941a546dcd8b98d.tar.gz | |
More anyLine tweaks: Use incSourceLine.
| -rw-r--r-- | src/Text/Pandoc/Parsing.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/Text/Pandoc/Parsing.hs b/src/Text/Pandoc/Parsing.hs index 4bb2aa6d2..8fbcc54b4 100644 --- a/src/Text/Pandoc/Parsing.hs +++ b/src/Text/Pandoc/Parsing.hs @@ -197,7 +197,7 @@ anyLine = do pos <- getPosition let (this, rest) = break (=='\n') inp setInput rest - let newpos = setSourceLine (setSourceColumn pos 0) (sourceLine pos + 1) + let newpos = incSourceLine (setSourceColumn pos 0) 1 setPosition newpos void (char '\n') <|> (guard (not $ null this) >> eof) return this |