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

remove unused coreExprCc

parent b2d3c557
...@@ -38,7 +38,7 @@ module CoreSyn ( ...@@ -38,7 +38,7 @@ module CoreSyn (
-- ** Simple 'Expr' access functions and predicates -- ** Simple 'Expr' access functions and predicates
bindersOf, bindersOfBinds, rhssOfBind, rhssOfAlts, bindersOf, bindersOfBinds, rhssOfBind, rhssOfAlts,
collectBinders, collectTyBinders, collectValBinders, collectTyAndValBinders, collectBinders, collectTyBinders, collectValBinders, collectTyAndValBinders,
collectArgs, coreExprCc, flattenBinds, collectArgs, flattenBinds,
isValArg, isTypeArg, isTyCoArg, valArgCount, valBndrCount, isValArg, isTypeArg, isTyCoArg, valArgCount, valBndrCount,
isRuntimeArg, isRuntimeVar, isRuntimeArg, isRuntimeVar,
...@@ -1184,14 +1184,6 @@ collectArgs expr ...@@ -1184,14 +1184,6 @@ collectArgs expr
go e as = (e, as) go e as = (e, as)
\end{code} \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} \subsection{Predicates}
......
Supports Markdown
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