Removed superfluous messages for [ cow]

This commit is contained in:
Vidar Holen 2012-12-02 20:40:01 -08:00
parent 1fb3380e68
commit b765ed1a44
1 changed files with 1 additions and 6 deletions

View File

@ -475,12 +475,7 @@ readCondition = called "test expression" $ do
condition <- readConditionContents single
cpos <- getPosition
close <- (try $ string "]]") <|> (string "]") <|> do
let match = (if single then "]" else "]]")
parseProblemAt opos ErrorC $ "Couldn't find matching " ++ match ++ "."
parseProblem ErrorC $ "Expected " ++ match ++ "."
fail "condition"
close <- (try $ string "]]") <|> (string "]")
when (open == "[[" && close /= "]]") $ parseProblemAt cpos ErrorC "Did you mean ]] ?"
when (open == "[" && close /= "]" ) $ parseProblemAt opos ErrorC "Did you mean [[ ?"
return $ T_Condition id (if single then SingleBracket else DoubleBracket) condition