From d27dc6a420845ed1b9fd0af96941a546dcd8b98d Mon Sep 17 00:00:00 2001
From: John MacFarlane <fiddlosopher@gmail.com>
Date: Fri, 25 Jan 2013 17:59:57 -0800
Subject: More anyLine tweaks: Use incSourceLine.

---
 src/Text/Pandoc/Parsing.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'src')

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
-- 
cgit v1.2.3