hasufell/ghc-mod
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

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

Browse Source
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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
Gap.hs
View File

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

2
test/CheckSpec.hs
View File

@ -11,4 +11,4 @@ spec = do
it "can check even if an executable depends on its library" $ do it "can check even if an executable depends on its library" $ do
withDirectory "test/data/ghc-mod-check" $ do withDirectory "test/data/ghc-mod-check" $ do
res <- checkSyntax defaultOptions "main.hs" 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"