@@ -194,8 +194,11 @@ anyLine = do
194 -- This is much faster than:
194 -- This is much faster than:
195 -- manyTill anyChar newline
195 -- manyTill anyChar newline
196 inp <- getInput
196 inp <- getInput
197 let (this, rest) = break (=='\n') inp
198 let (this, rest) = break (=='\n') inp
198 setInput rest
199 setInput rest
200+ let newpos = setSourceLine (setSourceColumn pos 0) (sourceLine pos + 1)
199 void (char '\n') <|> (guard (not $ null this) >> eof)
202 void (char '\n') <|> (guard (not $ null this) >> eof)
200 return this
203 return this