@@ -170,8 +170,8 @@ parseComment = (BlockComment <$> blockComment <|> LineComment <$> lineComment) <
171parsePositionedToken :: P.Parsec String u PositionedToken
171parsePositionedToken :: P.Parsec String u PositionedToken
172parsePositionedToken = P.try $ do
172parsePositionedToken = P.try $ do
173− pos <- P.getPosition
174 comments <- P.many parseComment
173 comments <- P.many parseComment
174+ pos <- P.getPosition
175 tok <- parseToken
175 tok <- parseToken
176 return $ PositionedToken pos tok comments
176 return $ PositionedToken pos tok comments