Fix an issue with positioned comments
commit53e04799cc5ab9b6acf832a47c5c826f767f5d60
authorPhil Freeman <paf31@cantab.net>
dateSun 21 Dec 2014, 20:25 (12 years ago)
parent54ea18a
src/Language/PureScript/Parser/Lexer.hs+1−1
@@ -170,8 +170,8 @@ parseComment = (BlockComment <$> blockComment <|> LineComment <$> lineComment) <
170170
171171parsePositionedToken :: P.Parsec String u PositionedToken
172172parsePositionedToken = P.try $ do
173− pos <- P.getPosition
174173 comments <- P.many parseComment
174+ pos <- P.getPosition
175175 tok <- parseToken
176176 return $ PositionedToken pos tok comments
177177