diff options
| -rw-r--r-- | compiler/deSugar/DsExpr.hs | 10 |
1 files changed, 4 insertions, 6 deletions
diff --git a/compiler/deSugar/DsExpr.hs b/compiler/deSugar/DsExpr.hs index 85177ee679..b01b0e69e5 100644 --- a/compiler/deSugar/DsExpr.hs +++ b/compiler/deSugar/DsExpr.hs @@ -470,12 +470,10 @@ dsExpr (HsStatic _ expr@(L loc _)) = do mkStaticPtrFingerprint :: Module -> DsM Fingerprint mkStaticPtrFingerprint this_mod = do n <- mkGenPerModuleNum this_mod - return $ fingerprintString $ unpackFS $ concatFS - [ unitIdFS $ moduleUnitId this_mod - , fsLit ":" - , moduleNameFS $ moduleName this_mod - , fsLit ":" - , mkFastString $ show n + return $ fingerprintString $ intercalate ":" + [ unitIdString $ moduleUnitId this_mod + , moduleNameString $ moduleName this_mod + , show n ] mkGenPerModuleNum :: Module -> DsM Int |