remove unused coreExprCc
authorSimon Marlow <marlowsd@gmail.com>
Fri, 2 Dec 2011 09:33:14 +0000 (09:33 +0000)
committerSimon Marlow <marlowsd@gmail.com>
Fri, 2 Dec 2011 13:11:44 +0000 (13:11 +0000)
compiler/coreSyn/CoreSyn.lhs

index 78c733d..04bb9d4 100644 (file)
@@ -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}