remove unused coreExprCc

1 files changed, 1 insertions, 9 deletions

diff --git a/compiler/coreSyn/CoreSyn.lhs b/compiler/coreSyn/CoreSyn.lhs
index 78c733d830..04bb9d4a68 100644
--- a/compiler/coreSyn/CoreSyn.lhs
+++ b/compiler/coreSyn/CoreSyn.lhs
@@ -38,7 +38,7 @@ module CoreSyn (
 	-- ** Simple 'Expr' access functions and predicates
 	bindersOf, bindersOfBinds, rhssOfBind, rhssOfAlts, 
 	collectBinders, collectTyBinders, collectValBinders, collectTyAndValBinders,
-	collectArgs, coreExprCc, flattenBinds, 
+        collectArgs, flattenBinds,
 
         isValArg, isTypeArg, isTyCoArg, valArgCount, valBndrCount,
         isRuntimeArg, isRuntimeVar,
@@ -1184,14 +1184,6 @@ collectArgs expr
     go e 	 as = (e, as)
 \end{code}
 
-\begin{code}
--- | Gets the cost centre enclosing an expression, if any.
--- It looks inside lambdas because @(scc \"foo\" \\x.e) = \\x. scc \"foo\" e@
-coreExprCc :: Expr b -> CostCentre
-coreExprCc (Tick (ProfNote { profNoteCC = cc}) _)   = cc
-coreExprCc _ = noCostCentre
-\end{code}
-
 %************************************************************************
 %*									*
 \subsection{Predicates}