diff options
| author | Sylvain Henry <sylvain@haskus.fr> | 2021-09-23 12:31:38 +0200 |
|---|---|---|
| committer | Marge Bot <ben+marge-bot@smart-cactus.org> | 2021-10-22 19:20:44 -0400 |
| commit | 6fd7da745a518a93f6685171701a27283cfe2d4e (patch) | |
| tree | 9feb7db12f7d892e960af948b7ebbf271dd0ff3f /compiler/GHC/Unit/Module.hs | |
| parent | fa5870d3ac0a64515d3e76af256e81b9dc8590bd (diff) | |
| download | haskell-6fd7da745a518a93f6685171701a27283cfe2d4e.tar.gz | |
Remove Indefinite
We no longer need it after previous IndefUnitId refactoring.
Diffstat (limited to 'compiler/GHC/Unit/Module.hs')
| -rw-r--r-- | compiler/GHC/Unit/Module.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/compiler/GHC/Unit/Module.hs b/compiler/GHC/Unit/Module.hs index 6431aaeae2..0ebfa73d16 100644 --- a/compiler/GHC/Unit/Module.hs +++ b/compiler/GHC/Unit/Module.hs @@ -106,7 +106,7 @@ getModuleInstantiation m = -- | Return the unit-id this unit is an instance of and the module instantiations (if any). getUnitInstantiations :: Unit -> (UnitId, Maybe InstantiatedUnit) -getUnitInstantiations (VirtUnit iuid) = (indefUnit (instUnitInstanceOf iuid), Just iuid) +getUnitInstantiations (VirtUnit iuid) = (instUnitInstanceOf iuid, Just iuid) getUnitInstantiations (RealUnit (Definite uid)) = (uid, Nothing) getUnitInstantiations HoleUnit = error "Hole unit" |