"Warning: "(a space after :) for GHC 7.6.

This commit is contained in:
Kazu Yamamoto 2013-02-13 16:04:22 +09:00
parent a05e4e817d
commit e3f09cd476
2 changed files with 2 additions and 2 deletions

2
Gap.hs
View File

@ -203,7 +203,7 @@ setCtx ms = do
showSeverityCaption :: Severity -> String
#if __GLASGOW_HASKELL__ >= 706
showSeverityCaption SevWarning = "Warning:"
showSeverityCaption SevWarning = "Warning: "
showSeverityCaption _ = ""
#else
showSeverityCaption = const ""

View File

@ -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"