diff options
| author | Sylvain Henry <sylvain@haskus.fr> | 2020-05-18 11:34:32 +0200 |
|---|---|---|
| committer | Marge Bot <ben+marge-bot@smart-cactus.org> | 2020-06-13 02:13:03 -0400 |
| commit | 266bc3d9c3735620598ab18ff6ac9c44134cbbff (patch) | |
| tree | f3a45d334ace92690dd42fed20ce4b983686d9db /compiler/GHC/Unit/State.hs | |
| parent | 9400aa934880695b83201e192998de2576cfdf92 (diff) | |
| download | haskell-266bc3d9c3735620598ab18ff6ac9c44134cbbff.tar.gz | |
DynFlags: refactor unwireUnit
Diffstat (limited to 'compiler/GHC/Unit/State.hs')
| -rw-r--r-- | compiler/GHC/Unit/State.hs | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/compiler/GHC/Unit/State.hs b/compiler/GHC/Unit/State.hs index d1107bcc7b..65acf20cd4 100644 --- a/compiler/GHC/Unit/State.hs +++ b/compiler/GHC/Unit/State.hs @@ -1616,9 +1616,9 @@ mkUnitState dflags dbs = do -- | Given a wired-in 'Unit', "unwire" it into the 'Unit' -- that it was recorded as in the package database. -unwireUnit :: DynFlags -> Unit-> Unit -unwireUnit dflags uid@(RealUnit (Definite def_uid)) = - maybe uid (RealUnit . Definite) (Map.lookup def_uid (unwireMap (unitState dflags))) +unwireUnit :: UnitState -> Unit-> Unit +unwireUnit state uid@(RealUnit (Definite def_uid)) = + maybe uid (RealUnit . Definite) (Map.lookup def_uid (unwireMap state)) unwireUnit _ uid = uid -- ----------------------------------------------------------------------------- |