Added some more punctuation to messages.
This commit is contained in:
parent
0141bd812b
commit
ecccc7a6b7
|
@ -424,8 +424,8 @@ readCondition = do
|
||||||
open <- (try $ string "[[") <|> (string "[")
|
open <- (try $ string "[[") <|> (string "[")
|
||||||
let single = open == "["
|
let single = open == "["
|
||||||
condSpacingMsg False $ if single
|
condSpacingMsg False $ if single
|
||||||
then "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 ]]"
|
else "You need spaces after the opening [[ and before the closing ]]."
|
||||||
condition <- readConditionContents single
|
condition <- readConditionContents single
|
||||||
cpos <- getPosition
|
cpos <- getPosition
|
||||||
close <- (try $ string "]]") <|> (string "]")
|
close <- (try $ string "]]") <|> (string "]")
|
||||||
|
@ -435,7 +435,7 @@ readCondition = do
|
||||||
|
|
||||||
|
|
||||||
hardCondSpacing = condSpacingMsg False "You need a space here."
|
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
|
condSpacingMsg soft msg = do
|
||||||
pos <- getPosition
|
pos <- getPosition
|
||||||
space <- spacing
|
space <- spacing
|
||||||
|
|
Loading…
Reference in New Issue