[Git][ghc/ghc][wip/T16806] Use disjointUdfmUfm

[Simon Jakobi]

Simon Jakobi pushed to branch wip/T16806 at Glasgow Haskell Compiler / GHC


Commits:
f5560faf by Simon Jakobi at 2020-03-31T18:19:53+02:00
Use disjointUdfmUfm

- - - - -


1 changed file:

- compiler/GHC/Types/Module.hs


Changes:

=====================================
compiler/GHC/Types/Module.hs
=====================================
@@ -991,7 +991,7 @@ renameHoleUnitId' pkg_map env uid =
         IndefUnitId{ indefUnitIdComponentId = cid
                    , indefUnitIdInsts       = insts
                    , indefUnitIdFreeHoles   = fh })
-          -> if disjointUFM (udfmToUfm (getUniqDSet fh)) env
+          -> if disjointUdfmUfm (getUniqDSet fh) env
                 then uid
                 -- Functorially apply the substitution to the instantiation,
                 -- then check the 'UnitInfoMap' to see if there is



View it on GitLab: https://gitlab.haskell.org/ghc/ghc/-/commit/f5560fafe329de05317bfee100a9f02fb5e16a13

-- 
View it on GitLab: https://gitlab.haskell.org/ghc/ghc/-/commit/f5560fafe329de05317bfee100a9f02fb5e16a13
You're receiving this email because of your account on gitlab.haskell.org.


-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://mail.haskell.org/pipermail/ghc-commits/attachments/20200331/1e8a2dd8/attachment.html>