[commit: ghc] master: Define NameSet.intersectFVs (871f684)

[git at git.haskell.org]

Repository : ssh://git@git.haskell.org/ghc

On branch  : master
Link       : http://ghc.haskell.org/trac/ghc/changeset/871f684dbe5fd13c6019f96d72023f80e67867c5/ghc

>---------------------------------------------------------------

commit 871f684dbe5fd13c6019f96d72023f80e67867c5
Author: Simon Peyton Jones <simonpj at microsoft.com>
Date:   Wed Apr 20 12:31:01 2016 +0100

    Define NameSet.intersectFVs
    
    I want it for subsequent commits


>---------------------------------------------------------------

871f684dbe5fd13c6019f96d72023f80e67867c5
 compiler/basicTypes/NameSet.hs | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/compiler/basicTypes/NameSet.hs b/compiler/basicTypes/NameSet.hs
index 7bca479..574c3a4 100644
--- a/compiler/basicTypes/NameSet.hs
+++ b/compiler/basicTypes/NameSet.hs
@@ -20,6 +20,7 @@ module NameSet (
         -- ** Manipulating sets of free variables
         isEmptyFVs, emptyFVs, plusFVs, plusFV,
         mkFVs, addOneFV, unitFV, delFV, delFVs,
+        intersectFVs,
 
         -- * Defs and uses
         Defs, Uses, DefUse, DefUses,
@@ -104,6 +105,7 @@ plusFVs  :: [FreeVars] -> FreeVars
 mkFVs    :: [Name] -> FreeVars
 delFV    :: Name -> FreeVars -> FreeVars
 delFVs   :: [Name] -> FreeVars -> FreeVars
+intersectFVs :: FreeVars -> FreeVars -> FreeVars
 
 isEmptyFVs :: NameSet -> Bool
 isEmptyFVs  = isEmptyNameSet
@@ -115,6 +117,7 @@ addOneFV    = extendNameSet
 unitFV      = unitNameSet
 delFV n s   = delFromNameSet s n
 delFVs ns s = delListFromNameSet s ns
+intersectFVs = intersectNameSet
 
 {-
 ************************************************************************