parsePositionedToken :: P.Parsec String u PositionedToken
parsePositionedToken = P.try $ do
  pos <- P.getPosition
  tok <- parseToken
  return $ PositionedToken pos tok
parsePositionedToken :: P.Parsec String u PositionedToken
parsePositionedToken = P.try $ do
  pos <- P.getPosition
  tok <- parseToken
  return $ PositionedToken pos tok
parsePositionedToken = P.try $ do
  pos <- P.getPosition
  tok <- parseToken
  return $ PositionedToken pos tok