diff options
| author | Ben Gamari <ben@smart-cactus.org> | 2016-07-08 16:14:29 +0200 |
|---|---|---|
| committer | Ben Gamari <ben@smart-cactus.org> | 2016-07-08 16:14:29 +0200 |
| commit | 54466843f309aa31c41ceebb0f59410dc40e5e80 (patch) | |
| tree | 40cbd7e272d519649b4a2ced1c1c47517c211616 | |
| parent | 83e899a8bbd4240cfde019c8cb71e0c5efeb02f2 (diff) | |
| download | haskell-wip/T12357-built-in-map.tar.gz | |
DsExpr: Remove unnecessary usage of concatFSwip/T12357-built-in-map
Producing a FastString and then immediately unpacking it is rather silly
| -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 |