Warn against open parenthesis in normal words

This commit is contained in:
Vidar Holen 2013-02-05 20:35:39 -08:00
parent 84f87002b7
commit 899d9eb445
1 changed files with 11 additions and 1 deletions

View File

@ -541,7 +541,17 @@ checkPossibleTermination pos [T_Literal _ x] =
else return () else return ()
checkPossibleTermination _ _ = return () checkPossibleTermination _ _ = return ()
readNormalWordPart end = readSingleQuoted <|> readDoubleQuoted <|> readGlob <|> readDollar <|> readBraced <|> readBackTicked <|> readProcSub <|> (readNormalLiteral end) readNormalWordPart end = do
checkForParenthesis
readSingleQuoted <|> readDoubleQuoted <|> readGlob <|> readDollar <|> readBraced <|> readBackTicked <|> readProcSub <|> (readNormalLiteral end)
where
checkForParenthesis = do
return () `attempting` do
pos <- getPosition
lookAhead $ char '('
parseProblemAt pos ErrorC "'(' is invalid here. Did you forget to escape it?"
readSpacePart = do readSpacePart = do
id <- getNextId id <- getNextId
x <- many1 whitespace x <- many1 whitespace