Repository : ssh://darcs.haskell.org//srv/darcs/ghc On branch : master
http://hackage.haskell.org/trac/ghc/changeset/6f4bde149e46146125d688d9ff719c2e5e0800c2 >--------------------------------------------------------------- commit 6f4bde149e46146125d688d9ff719c2e5e0800c2 Author: Simon Marlow <[email protected]> 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} _______________________________________________ Cvs-ghc mailing list [email protected] http://www.haskell.org/mailman/listinfo/cvs-ghc
