Commit 6f4bde14 authored by Simon Marlow's avatar Simon Marlow
Browse files

remove unused coreExprCc

parent b2d3c557
......@@ -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}
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment