From e3f09cd476ff5fc956a1b209e081fafba1e14905 Mon Sep 17 00:00:00 2001 From: Kazu Yamamoto Date: Wed, 13 Feb 2013 16:04:22 +0900 Subject: [PATCH] "Warning: "(a space after :) for GHC 7.6. --- Gap.hs | 2 +- test/CheckSpec.hs | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) diff --git a/Gap.hs b/Gap.hs index 5757dfd..c3f8dea 100644 --- a/Gap.hs +++ b/Gap.hs @@ -203,7 +203,7 @@ setCtx ms = do showSeverityCaption :: Severity -> String #if __GLASGOW_HASKELL__ >= 706 -showSeverityCaption SevWarning = "Warning:" +showSeverityCaption SevWarning = "Warning: " showSeverityCaption _ = "" #else showSeverityCaption = const "" diff --git a/test/CheckSpec.hs b/test/CheckSpec.hs index 4d0a797..fb5843d 100644 --- a/test/CheckSpec.hs +++ b/test/CheckSpec.hs @@ -11,4 +11,4 @@ spec = do it "can check even if an executable depends on its library" $ do withDirectory "test/data/ghc-mod-check" $ do res <- checkSyntax defaultOptions "main.hs" - res `shouldBe` "main.hs:5:1:Warning:Top-level binding with no type signature: main :: IO ()\NUL\n" + res `shouldBe` "main.hs:5:1:Warning: Top-level binding with no type signature: main :: IO ()\NUL\n"