diff options
| author | Bartosz Nitka <niteria@gmail.com> | 2016-04-28 14:56:28 -0700 |
|---|---|---|
| committer | Bartosz Nitka <niteria@gmail.com> | 2016-04-28 14:56:28 -0700 |
| commit | 6e195f4f0c151b787f122ebab1e334fbaf0ebce9 (patch) | |
| tree | 472c9f496f9e94029dedf0953f352dc9d1aa9e19 | |
| parent | f255f80132aa4cbe16db85b759350945fb66ef85 (diff) | |
| download | haskell-6e195f4f0c151b787f122ebab1e334fbaf0ebce9.tar.gz | |
Remove unused foldFsEnv
foldFsEnv is nondeterministic in the general case and since it's
unused we can just remove it.
| -rw-r--r-- | compiler/utils/FastStringEnv.hs | 4 |
1 files changed, 1 insertions, 3 deletions
diff --git a/compiler/utils/FastStringEnv.hs b/compiler/utils/FastStringEnv.hs index 63981460d1..02ee0292b9 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 |