summaryrefslogtreecommitdiff
path: root/compiler/simplStg
diff options
context:
space:
mode:
authorÖmer Sinan Ağacan <omeragacan@gmail.com>2018-01-18 11:06:30 -0500
committerBen Gamari <ben@smart-cactus.org>2018-01-18 11:06:31 -0500
commit2a78cf773cb447ac91c4a23d7e921e091e499134 (patch)
tree7895eb78cf96ad42051786633fa21310629c65f0 /compiler/simplStg
parent33358113175a66f8bfecd13f979aa7508e667271 (diff)
downloadhaskell-2a78cf773cb447ac91c4a23d7e921e091e499134.tar.gz
Remove unused extern cost centre collection
Reviewers: bgamari, simonmar Reviewed By: simonmar Subscribers: alexbiehl, rwbarton, thomie, carter Differential Revision: https://phabricator.haskell.org/D4309
Diffstat (limited to 'compiler/simplStg')
-rw-r--r--compiler/simplStg/SimplStg.hs2
1 files changed, 1 insertions, 1 deletions
diff --git a/compiler/simplStg/SimplStg.hs b/compiler/simplStg/SimplStg.hs
index ad714ea4c8..2af53e4877 100644
--- a/compiler/simplStg/SimplStg.hs
+++ b/compiler/simplStg/SimplStg.hs
@@ -43,7 +43,7 @@ stg2stg dflags module_name binds
(putLogMsg dflags NoReason SevDump noSrcSpan
(defaultDumpStyle dflags) (text "VERBOSE STG-TO-STG:"))
- ; (binds', us', ccs) <- end_pass us "Stg2Stg" ([],[],[]) binds
+ ; (binds', us', ccs) <- end_pass us "Stg2Stg" ([],[]) binds
-- Do the main business!
; let (us0, us1) = splitUniqSupply us'