From ecccc7a6b7811881b200bb4fb1a8bc150e2227aa Mon Sep 17 00:00:00 2001 From: Vidar Holen Date: Sat, 17 Nov 2012 10:21:34 -0800 Subject: [PATCH] Added some more punctuation to messages. --- ShellCheck/Parser.hs | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/ShellCheck/Parser.hs b/ShellCheck/Parser.hs index 9129945..f25bf56 100644 --- a/ShellCheck/Parser.hs +++ b/ShellCheck/Parser.hs @@ -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