diff options
Diffstat (limited to 'compiler/GHC/Types/Name/Shape.hs')
| -rw-r--r-- | compiler/GHC/Types/Name/Shape.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/compiler/GHC/Types/Name/Shape.hs b/compiler/GHC/Types/Name/Shape.hs index 7bb0fad289..6ea3ba3a9a 100644 --- a/compiler/GHC/Types/Name/Shape.hs +++ b/compiler/GHC/Types/Name/Shape.hs @@ -230,7 +230,7 @@ uAvailInfos flexi as1 as2 = -- pprTrace "uAvailInfos" (ppr as1 $$ ppr as2) $ n <- availNames a return (nameOccName n, a) in foldM (\subst (a1, a2) -> uAvailInfo flexi subst a1 a2) emptyNameEnv - (eltsUFM (intersectUFM_C (,) (mkOE as1) (mkOE as2))) + (nonDetEltsUFM (intersectUFM_C (,) (mkOE as1) (mkOE as2))) -- Edward: I have to say, this is pretty clever. -- | Unify two 'AvailInfo's, given an existing substitution @subst@, |