diff options
Diffstat (limited to 'compiler/deSugar/DsExpr.hs')
| -rw-r--r-- | compiler/deSugar/DsExpr.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/compiler/deSugar/DsExpr.hs b/compiler/deSugar/DsExpr.hs index 9e82c711da..d91ccfbc6c 100644 --- a/compiler/deSugar/DsExpr.hs +++ b/compiler/deSugar/DsExpr.hs @@ -436,7 +436,7 @@ dsExpr (HsStatic expr@(L loc _)) = do info <- mkConApp staticPtrInfoDataCon <$> (++[srcLoc]) <$> mapM mkStringExprFS - [ packageKeyFS $ modulePackageKey $ nameModule n' + [ unitIdFS $ moduleUnitId $ nameModule n' , moduleNameFS $ moduleName $ nameModule n' , occNameFS $ nameOccName n' ] @@ -462,7 +462,7 @@ dsExpr (HsStatic expr@(L loc _)) = do fingerprintName :: Name -> Fingerprint fingerprintName n = fingerprintString $ unpackFS $ concatFS - [ packageKeyFS $ modulePackageKey $ nameModule n + [ unitIdFS $ moduleUnitId $ nameModule n , fsLit ":" , moduleNameFS (moduleName $ nameModule n) , fsLit "." |