Added some more punctuation to messages.

This commit is contained in:
Vidar Holen 2012-11-17 10:21:34 -08:00
parent 0141bd812b
commit ecccc7a6b7
1 changed files with 3 additions and 3 deletions

View File

@ -424,8 +424,8 @@ readCondition = do
open <- (try $ string "[[") <|> (string "[")
let single = open == "["
condSpacingMsg False $ if single
then "You need spaces after the opening [ and before the closing ]"
else "You need spaces after the opening [[ and before the closing ]]"
then "You need spaces after the opening [ and before the closing ]."
else "You need spaces after the opening [[ and before the closing ]]."
condition <- readConditionContents single
cpos <- getPosition
close <- (try $ string "]]") <|> (string "]")
@ -435,7 +435,7 @@ readCondition = do
hardCondSpacing = condSpacingMsg False "You need a space here."
softCondSpacing = condSpacingMsg True "You need a space here"
softCondSpacing = condSpacingMsg True "You need a space here."
condSpacingMsg soft msg = do
pos <- getPosition
space <- spacing