diff options
| author | Shayne Fletcher <shayne.fletcher@digitalasset.com> | 2019-05-07 17:35:50 -0400 |
|---|---|---|
| committer | Marge Bot <ben+marge-bot@smart-cactus.org> | 2019-05-08 15:29:01 -0400 |
| commit | ed5f858b8484a207e28baf9cbec4c60de1c86187 (patch) | |
| tree | 4dfe0b1ff3970bf2cac267299251e803f7ced7e8 /ghc/GHCi/UI.hs | |
| parent | 0eeb4cfad732d0b9b278c2274cb6db9633f9d3b5 (diff) | |
| download | haskell-ed5f858b8484a207e28baf9cbec4c60de1c86187.tar.gz | |
Implement ImportQualifiedPost
Diffstat (limited to 'ghc/GHCi/UI.hs')
| -rw-r--r-- | ghc/GHCi/UI.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/ghc/GHCi/UI.hs b/ghc/GHCi/UI.hs index 383b7fe302..aeb8067bcc 100644 --- a/ghc/GHCi/UI.hs +++ b/ghc/GHCi/UI.hs @@ -2649,7 +2649,7 @@ iiSubsumes (IIModule m1) (IIModule m2) = m1==m2 iiSubsumes (IIDecl d1) (IIDecl d2) -- A bit crude = unLoc (ideclName d1) == unLoc (ideclName d2) && ideclAs d1 == ideclAs d2 - && (not (ideclQualified d1) || ideclQualified d2) + && (not (isImportDeclQualified (ideclQualified d1)) || isImportDeclQualified (ideclQualified d2)) && (ideclHiding d1 `hidingSubsumes` ideclHiding d2) where _ `hidingSubsumes` Just (False,L _ []) = True |