diff options
| author | Sylvain Henry <sylvain@haskus.fr> | 2020-05-13 19:13:19 +0200 |
|---|---|---|
| committer | Marge Bot <ben+marge-bot@smart-cactus.org> | 2020-06-13 02:13:03 -0400 |
| commit | 55b4263e1a53cc27b1da9227249bdcd20139ddc9 (patch) | |
| tree | 58ecc8716985b35e8bab7d22fe26f969c43842a0 /compiler/GHC/Unit/Module.hs | |
| parent | 202728e529f2faa88731b9f4b34b2ac567eb7c95 (diff) | |
| download | haskell-55b4263e1a53cc27b1da9227249bdcd20139ddc9.tar.gz | |
Remove ClosureUnitInfoMap
Diffstat (limited to 'compiler/GHC/Unit/Module.hs')
| -rw-r--r-- | compiler/GHC/Unit/Module.hs | 10 |
1 files changed, 0 insertions, 10 deletions
diff --git a/compiler/GHC/Unit/Module.hs b/compiler/GHC/Unit/Module.hs index 14751d7003..6ec97c027a 100644 --- a/compiler/GHC/Unit/Module.hs +++ b/compiler/GHC/Unit/Module.hs @@ -43,7 +43,6 @@ module GHC.Unit.Module , moduleIsDefinite , HasModule(..) , ContainsModule(..) - , instModuleToModule , unitIdEq , installedModuleEq ) where @@ -57,9 +56,6 @@ import GHC.Unit.Module.Location import GHC.Unit.Module.Env import GHC.Utils.Misc -import {-# SOURCE #-} GHC.Unit.State (PackageState) - - -- | A 'Module' is definite if it has no free holes. moduleIsDefinite :: Module -> Bool moduleIsDefinite = isEmptyUniqDSet . moduleFreeHoles @@ -87,12 +83,6 @@ class HasModule m where getModule :: m Module --- | Injects an 'InstantiatedModule' to 'Module' (see also --- 'instUnitToUnit'. -instModuleToModule :: PackageState -> InstantiatedModule -> Module -instModuleToModule pkgstate (Module iuid mod_name) = - mkModule (instUnitToUnit pkgstate iuid) mod_name - -- | Test if a 'Module' corresponds to a given 'InstalledModule', -- modulo instantiation. installedModuleEq :: InstalledModule -> Module -> Bool |