GitLab

67a454b8

by Simon Hengel at 2026-06-22T11:50:24+00:00

Apply 1 suggestion(s) to 1 file(s)

Co-authored-by: Jaro Reinders <i5c9aasq@anonaddy.me>

@@ -1989,10 +1989,10 @@ lookupModuleWithSuggestions' pkgs mod_map name mb_pn
              | otherwise
              -> (fromHiddenReexport ++ maybe id (:) origUnit hidden_pkg, hidden_mod, unusable, exposed)
              where
 -              origUnit :: Maybe UnitInfo
 -              origUnit = case fromOrigUnit of
 -                Renamed -> Nothing
 -                _ -> lookupUnit pkgs (moduleUnit m)
 +              hiddenOrigUnit :: Maybe UnitInfo
 +              hiddenOrigUnit = case fromOrigUnit of
 +                AvailableFromHiddenPackage -> lookupUnit pkgs (moduleUnit m)
 +                _ -> Nothing
      unit_lookup p = lookupUnit pkgs p `orElse` pprPanic "lookupModuleWithSuggestions" (ppr p <+> ppr name)
      mod_unit = unit_lookup . moduleUnit