[commit: ghc] master: Remove unused foldFsEnv (6e195f4)

[git at git.haskell.org]

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

On branch  : master
Link       : http://ghc.haskell.org/trac/ghc/changeset/6e195f4f0c151b787f122ebab1e334fbaf0ebce9/ghc

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

commit 6e195f4f0c151b787f122ebab1e334fbaf0ebce9
Author: Bartosz Nitka <niteria at gmail.com>
Date:   Thu Apr 28 14:56:28 2016 -0700

    Remove unused foldFsEnv
    
    foldFsEnv is nondeterministic in the general case and since it's
    unused we can just remove it.


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

6e195f4f0c151b787f122ebab1e334fbaf0ebce9
 compiler/utils/FastStringEnv.hs | 4 +---
 1 file changed, 1 insertion(+), 3 deletions(-)

diff --git a/compiler/utils/FastStringEnv.hs b/compiler/utils/FastStringEnv.hs
index 6398146..02ee029 100644
--- a/compiler/utils/FastStringEnv.hs
+++ b/compiler/utils/FastStringEnv.hs
@@ -15,7 +15,7 @@ module FastStringEnv (
         emptyFsEnv, unitFsEnv, fsEnvElts, fsEnvUniqueElts,
         extendFsEnv_C, extendFsEnv_Acc, extendFsEnv,
         extendFsEnvList, extendFsEnvList_C,
-        foldFsEnv, filterFsEnv,
+        filterFsEnv,
         plusFsEnv, plusFsEnv_C, alterFsEnv,
         lookupFsEnv, lookupFsEnv_NF, delFromFsEnv, delListFromFsEnv,
         elemFsEnv, mapFsEnv,
@@ -47,7 +47,6 @@ elemFsEnv          :: FastString -> FastStringEnv a -> Bool
 unitFsEnv          :: FastString -> a -> FastStringEnv a
 lookupFsEnv        :: FastStringEnv a -> FastString -> Maybe a
 lookupFsEnv_NF     :: FastStringEnv a -> FastString -> a
-foldFsEnv          :: (a -> b -> b) -> b -> FastStringEnv a -> b
 filterFsEnv        :: (elt -> Bool) -> FastStringEnv elt -> FastStringEnv elt
 mapFsEnv           :: (elt1 -> elt2) -> FastStringEnv elt1 -> FastStringEnv elt2
 
@@ -60,7 +59,6 @@ lookupFsEnv x y           = lookupUFM x y
 alterFsEnv                = alterUFM
 mkFsEnv     l             = listToUFM l
 elemFsEnv x y             = elemUFM x y
-foldFsEnv a b c           = foldUFM a b c
 plusFsEnv x y             = plusUFM x y
 plusFsEnv_C f x y         = plusUFM_C f x y
 extendFsEnv_C f x y z     = addToUFM_C f x y z