summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorBen Gamari <bgamari.foss@gmail.com>2016-07-08 22:41:55 +0200
committerBen Gamari <ben@smart-cactus.org>2016-07-08 22:42:34 +0200
commit6c7c193f376fe3b48992724c12f6ff393dca6528 (patch)
tree7d52249a65ffe3fda7766b1518c4aafa3b594764
parent4f21a518d10abff786794cda086da0474971cdf9 (diff)
downloadhaskell-6c7c193f376fe3b48992724c12f6ff393dca6528.tar.gz
DsExpr: Remove usage of concatFS in fingerprintName
This was the only user of concatFS and really just wants the `String` anyways. Stumbled upon while looking at #12357. Test Plan: Validate Reviewers: austin Reviewed By: austin Subscribers: thomie Differential Revision: https://phabricator.haskell.org/D2386
-rw-r--r--compiler/deSugar/DsExpr.hs12
1 files changed, 5 insertions, 7 deletions
diff --git a/compiler/deSugar/DsExpr.hs b/compiler/deSugar/DsExpr.hs
index 85177ee679..bf04f13ce9 100644
--- a/compiler/deSugar/DsExpr.hs
+++ b/compiler/deSugar/DsExpr.hs
@@ -54,9 +54,9 @@ import SrcLoc
import Util
import Bag
import Outputable
-import FastString
import PatSyn
+import Data.List ( intercalate )
import Data.IORef ( atomicModifyIORef' )
import Control.Monad
@@ -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