[project @ 2000-12-07 17:26:30 by simonmar]

[ghc-hetmet.git] / ghc / compiler / stgSyn / StgSyn.lhs

diff --git a/ghc/compiler/stgSyn/StgSyn.lhs b/ghc/compiler/stgSyn/StgSyn.lhs
index c0d94bc..82477d5 100644 (file)
--- a/ghc/compiler/stgSyn/StgSyn.lhs
+++ b/ghc/compiler/stgSyn/StgSyn.lhs
@@ -34,8 +34,7 @@ module StgSyn (
        pprStgBinding, pprStgBindings, pprStgBindingsWithSRTs,
        getArgPrimRep, pprStgAlts,
        isLitLitArg, isDllConApp, isStgTypeArg,
-       stgArity, stgArgType,
-       collectFinalStgBinders
+       stgArity, stgArgType
 
 #ifdef DEBUG
        , pprStgLVs
@@ -547,27 +546,6 @@ pprSRT (SRT off len) = parens (ppr off <> comma <> ppr len)
 
 %************************************************************************
 %*                                                                     *
-\subsection[Stg-utility-functions]{Utility functions}
-%*                                                                     *
-%************************************************************************
-
-
-For doing interfaces, we want the exported top-level Ids from the
-final pre-codegen STG code, so as to be sure we have the
-latest/greatest pragma info.
-
-\begin{code}
-collectFinalStgBinders
-       :: [StgBinding] -- input program
-       -> [Id]
-
-collectFinalStgBinders [] = []
-collectFinalStgBinders (StgNonRec b _ : binds) = b : collectFinalStgBinders binds
-collectFinalStgBinders (StgRec bs     : binds) = map fst bs ++ collectFinalStgBinders binds
-\end{code}
-
-%************************************************************************
-%*                                                                     *
 \subsection[Stg-pretty-printing]{Pretty-printing}
 %*                                                                     *
 %************************************************************************