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/Home.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/Home.hs')
| -rw-r--r-- | compiler/GHC/Unit/Home.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/compiler/GHC/Unit/Home.hs b/compiler/GHC/Unit/Home.hs index fa8a0b1d6f..02b60e64c9 100644 --- a/compiler/GHC/Unit/Home.hs +++ b/compiler/GHC/Unit/Home.hs @@ -103,7 +103,7 @@ homeUnitInstanceOfMaybe _ = Nothing -- produce any code object that rely on the unit id of this virtual unit. homeUnitAsUnit :: HomeUnit -> Unit homeUnitAsUnit (DefiniteHomeUnit u _) = RealUnit (Definite u) -homeUnitAsUnit (IndefiniteHomeUnit u is) = mkVirtUnit (Indefinite u) is +homeUnitAsUnit (IndefiniteHomeUnit u is) = mkVirtUnit u is -- | Map over the unit identifier for instantiating units homeUnitMap :: IsUnitId v => (u -> v) -> GenHomeUnit u -> GenHomeUnit v |