Added a check for spurious }s

This commit is contained in:
Vidar Holen
2012-11-25 00:42:59 -08:00
parent d58bd400ea
commit 21262399cc

View File

@@ -450,8 +450,15 @@ prop_readNormalWord2 = isOk readNormalWord "foo**(foo)!!!(@@(bar))"
readNormalWord = do
id <- getNextId
x <- many1 readNormalWordPart
checkPossibleTermination x
return $ T_NormalWord id x
checkPossibleTermination [T_Literal _ "}"] =
parseProblem WarningC "If you meant to terminate a {} block, you need a semicolon or linefeed before the }."
checkPossibleTermination _ = return ()
readNormalWordPart = readSingleQuoted <|> readDoubleQuoted <|> readExtglob <|> readDollar <|> readBraced <|> readBackTicked <|> (readNormalLiteral)
readSpacePart = do
id <- getNextId