Punctuated message.

This commit is contained in:
Vidar Holen 2012-11-27 01:48:51 -08:00
parent bb7e844125
commit 807e56355d
1 changed files with 1 additions and 1 deletions

View File

@ -434,7 +434,7 @@ readCondition = do
close <- (try $ string "]]") <|> (string "]") <|> do
let match = (if single then "]" else "]]")
parseProblemAt opos ErrorC $ "Couldn't find matching " ++ match ++ "."
parseProblem ErrorC $ "Expected " ++ match
parseProblem ErrorC $ "Expected " ++ match ++ "."
fail "condition"
when (open == "[[" && close /= "]]") $ parseProblemAt cpos ErrorC "Did you mean ]] ?"