diff options
| author | Bartosz Nitka <niteria@gmail.com> | 2016-06-13 04:53:43 -0700 |
|---|---|---|
| committer | Bartosz Nitka <niteria@gmail.com> | 2016-06-13 04:54:59 -0700 |
| commit | 7de776cfe7825fca6a71fe6b3854c3c86bf9ca12 (patch) | |
| tree | 4af1f0f3226794a73c388a006788e43fb6cbb09a | |
| parent | 5cee88d766723929f789ffcd2ef24d8b5ef62a16 (diff) | |
| download | haskell-7de776cfe7825fca6a71fe6b3854c3c86bf9ca12.tar.gz | |
Kill unused foldModuleEnv
With the current implementation, it's nondeterministic
because Ord Module is nondeterministic.
| -rw-r--r-- | compiler/basicTypes/Module.hs | 5 |
1 files changed, 1 insertions, 4 deletions
diff --git a/compiler/basicTypes/Module.hs b/compiler/basicTypes/Module.hs index a80df19c33..74b15bcd3a 100644 --- a/compiler/basicTypes/Module.hs +++ b/compiler/basicTypes/Module.hs @@ -69,7 +69,7 @@ module Module lookupWithDefaultModuleEnv, mapModuleEnv, mkModuleEnv, emptyModuleEnv, moduleEnvKeys, moduleEnvElts, moduleEnvToList, unitModuleEnv, isEmptyModuleEnv, - foldModuleEnv, extendModuleEnvWith, filterModuleEnv, + extendModuleEnvWith, filterModuleEnv, -- * ModuleName mappings ModuleNameEnv, DModuleNameEnv, @@ -578,9 +578,6 @@ unitModuleEnv m x = ModuleEnv (Map.singleton m x) isEmptyModuleEnv :: ModuleEnv a -> Bool isEmptyModuleEnv (ModuleEnv e) = Map.null e -foldModuleEnv :: (a -> b -> b) -> b -> ModuleEnv a -> b -foldModuleEnv f x (ModuleEnv e) = Map.foldRightWithKey (\_ v -> f v) x e - -- | A set of 'Module's type ModuleSet = Set Module |