@@ -197,7 +197,7 @@ anyLine = do
197 pos <- getPosition
197 pos <- getPosition
198 let (this, rest) = break (=='\n') inp
198 let (this, rest) = break (=='\n') inp
199 setInput rest
199 setInput rest
200− let newpos = setSourceLine (setSourceColumn pos 0) (sourceLine pos + 1)
200+ let newpos = incSourceLine (setSourceColumn pos 0) 1
201 setPosition newpos
201 setPosition newpos
202 void (char '\n') <|> (guard (not $ null this) >> eof)
202 void (char '\n') <|> (guard (not $ null this) >> eof)
203 return this
203 return this