diff options
| author | Kirill Elagin <kirelagin@gmail.com> | 2020-05-15 18:00:33 +0300 |
|---|---|---|
| committer | Marge Bot <ben+marge-bot@smart-cactus.org> | 2020-06-01 06:34:21 -0400 |
| commit | d412d7a3783b4fc5d3078541a60996e249b4157c (patch) | |
| tree | 0c20c637c05802c98d46ef595065a562b75fed11 | |
| parent | 2b89ca5b850b4097447cc4908cbb0631011ce979 (diff) | |
| download | haskell-d412d7a3783b4fc5d3078541a60996e249b4157c.tar.gz | |
Winferred-safe-imports: Do not exit with error
Currently, when -Winferred-safe-imports is enabled, even when it is not
turned into an error, the compiler will still exit with exit code 1 if
this warning was emitted.
Make sure it is really treated as a warning.
| -rw-r--r-- | compiler/GHC/Driver/Main.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/compiler/GHC/Driver/Main.hs b/compiler/GHC/Driver/Main.hs index 6cc61246b9..960b7d9c51 100644 --- a/compiler/GHC/Driver/Main.hs +++ b/compiler/GHC/Driver/Main.hs @@ -1160,7 +1160,7 @@ hscCheckSafe' m l = do where inferredImportWarn = unitBag $ makeIntoWarning (Reason Opt_WarnInferredSafeImports) - $ mkErrMsg dflags l (pkgQual dflags) + $ mkWarnMsg dflags l (pkgQual dflags) $ sep [ text "Importing Safe-Inferred module " <> ppr (moduleName m) |