Simon Hengel pushed to branch wip/sol/reexported-error-message-refactor at Glasgow Haskell Compiler / GHC
Commits:
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
- - - - -
1 changed file:
- compiler/GHC/Unit/State.hs
Changes:
=====================================
compiler/GHC/Unit/State.hs
=====================================
@@ -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
View it on GitLab: https://gitlab.haskell.org/ghc/ghc/-/commit/67a454b824a4c22a299cc311e9acb7d5...
--
View it on GitLab: https://gitlab.haskell.org/ghc/ghc/-/commit/67a454b824a4c22a299cc311e9acb7d5...
You're receiving this email because of your account on gitlab.haskell.org.
