@@ -447,6 +447,7 @@ errorSuggestion err = case err of
447 UnusedExplicitImport mn _ qual refs -> suggest $ importSuggestion mn refs qual
447 UnusedExplicitImport mn _ qual refs -> suggest $ importSuggestion mn refs qual
448 ImplicitImport mn refs -> suggest $ importSuggestion mn refs Nothing
448 ImplicitImport mn refs -> suggest $ importSuggestion mn refs Nothing
449 ImplicitQualifiedImport mn asModule refs -> suggest $ importSuggestion mn refs (Just asModule)
449 ImplicitQualifiedImport mn asModule refs -> suggest $ importSuggestion mn refs (Just asModule)
450+ HidingImport mn refs -> suggest $ importSuggestion mn refs Nothing
450 _ -> Nothing
451 _ -> Nothing
@@ -955,9 +956,9 @@ prettyPrintSingleError full level showWiki e = flip evalState defaultUnknownMap
955 , indent $ line $ showSuggestion msg
956 , indent $ line $ showSuggestion msg
958− renderSimpleErrorMessage (HidingImport mn refs) =
959+ renderSimpleErrorMessage msg@(HidingImport mn _) =
959 paras [ line $ "Module " ++ runModuleName mn ++ " has unspecified imports, consider using the inclusive form: "
960 paras [ line $ "Module " ++ runModuleName mn ++ " has unspecified imports, consider using the inclusive form: "
960− , indent $ line $ "import " ++ runModuleName mn ++ " (" ++ intercalate ", " (map prettyPrintRef refs) ++ ")"
961+ , indent $ line $ showSuggestion msg
963 renderSimpleErrorMessage (CaseBinderLengthDiffers l bs) =
964 renderSimpleErrorMessage (CaseBinderLengthDiffers l bs) =