diff options
Diffstat (limited to 'compiler/GHC/Driver/Errors/Ppr.hs')
-rw-r--r-- | compiler/GHC/Driver/Errors/Ppr.hs | 38 |
1 files changed, 38 insertions, 0 deletions
diff --git a/compiler/GHC/Driver/Errors/Ppr.hs b/compiler/GHC/Driver/Errors/Ppr.hs index 2d90e935c8..1b604e1071 100644 --- a/compiler/GHC/Driver/Errors/Ppr.hs +++ b/compiler/GHC/Driver/Errors/Ppr.hs @@ -88,6 +88,18 @@ instance Diagnostic DriverMessage where 4 (sep (map ppr missing)) in mkSimpleDecorated msg + DriverUnknownHiddenModules missing + -> let msg = hang + (text "Modules are listened as hidden but not part of the unit: ") + 4 + (sep (map ppr missing)) + in mkSimpleDecorated msg + DriverUnknownReexportedModules missing + -> let msg = hang + (text "Modules are listened as reexported but can't be found in any dependency: ") + 4 + (sep (map ppr missing)) + in mkSimpleDecorated msg DriverUnusedPackages unusedArgs -> let msg = vcat [ text "The following packages were specified" <+> text "via -package or -package-id flags," @@ -171,6 +183,16 @@ instance Diagnostic DriverMessage where <> (pprWithUnitState state $ ppr (moduleUnit m)) <> text ") the module resides in isn't trusted." ] + DriverRedirectedNoMain mod_name + -> mkSimpleDecorated $ (text + ("Output was redirected with -o, " ++ + "but no output will be generated.") $$ + (text "There is no module named" <+> + quotes (ppr mod_name) <> text ".")) + DriverHomePackagesNotClosed needed_unit_ids + -> mkSimpleDecorated $ vcat ([text "Home units are not closed." + , text "It is necessary to also load the following units:" ] + ++ map (\uid -> text "-" <+> ppr uid) needed_unit_ids) diagnosticReason = \case DriverUnknownMessage m @@ -179,6 +201,10 @@ instance Diagnostic DriverMessage where -> ErrorWithoutFlag DriverMissingHomeModules{} -> WarningWithFlag Opt_WarnMissingHomeModules + DriverUnknownHiddenModules {} + -> ErrorWithoutFlag + DriverUnknownReexportedModules {} + -> ErrorWithoutFlag DriverUnusedPackages{} -> WarningWithFlag Opt_WarnUnusedPackages DriverUnnecessarySourceImports{} @@ -217,6 +243,10 @@ instance Diagnostic DriverMessage where -> ErrorWithoutFlag DriverCannotImportFromUntrustedPackage{} -> ErrorWithoutFlag + DriverRedirectedNoMain {} + -> ErrorWithoutFlag + DriverHomePackagesNotClosed {} + -> ErrorWithoutFlag diagnosticHints = \case DriverUnknownMessage m @@ -225,6 +255,10 @@ instance Diagnostic DriverMessage where -> diagnosticHints psMsg DriverMissingHomeModules{} -> noHints + DriverUnknownHiddenModules {} + -> noHints + DriverUnknownReexportedModules {} + -> noHints DriverUnusedPackages{} -> noHints DriverUnnecessarySourceImports{} @@ -265,3 +299,7 @@ instance Diagnostic DriverMessage where -> noHints DriverCannotImportFromUntrustedPackage{} -> noHints + DriverRedirectedNoMain {} + -> noHints + DriverHomePackagesNotClosed {} + -> noHints |