@@ -447,6 +447,7 @@ errorSuggestion err = case err of
447447 UnusedExplicitImport mn _ qual refs -> suggest $ importSuggestion mn refs qual
448448 ImplicitImport mn refs -> suggest $ importSuggestion mn refs Nothing
449449 ImplicitQualifiedImport mn asModule refs -> suggest $ importSuggestion mn refs (Just asModule)
450+ HidingImport mn refs -> suggest $ importSuggestion mn refs Nothing
450451 _ -> Nothing
451452
452453 where
@@ -955,9 +956,9 @@ prettyPrintSingleError full level showWiki e = flip evalState defaultUnknownMap
955956 , indent $ line $ showSuggestion msg
956957 ]
957958
958− renderSimpleErrorMessage (HidingImport mn refs) =
959+ renderSimpleErrorMessage msg@(HidingImport mn _) =
959960 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
961962 ]
962963
963964 renderSimpleErrorMessage (CaseBinderLengthDiffers l bs) =