[commit: ghc] master: remove unused coreExprCc (6f4bde1)

[Simon Marlow]

Repository : ssh://darcs.haskell.org//srv/darcs/ghc

On branch  : master

http://hackage.haskell.org/trac/ghc/changeset/6f4bde149e46146125d688d9ff719c2e5e0800c2

>---------------------------------------------------------------

commit 6f4bde149e46146125d688d9ff719c2e5e0800c2
Author: Simon Marlow <marlowsd at gmail.com>
Date:   Fri Dec 2 09:33:14 2011 +0000

    remove unused coreExprCc

>---------------------------------------------------------------

 compiler/coreSyn/CoreSyn.lhs |   10 +---------
 1 files changed, 1 insertions(+), 9 deletions(-)

diff --git a/compiler/coreSyn/CoreSyn.lhs b/compiler/coreSyn/CoreSyn.lhs
index 78c733d..04bb9d4 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}