diff options
Diffstat (limited to 'src/Text')
| -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 |