X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Fcompiler%2FsimplCore%2FOccurAnal.lhs;h=f8915c72f506521c17542d7b07b82d6437224d10;hb=a7ecdf96844404b7bc8273d4ff6d85759278427c;hp=29d138e4a6945accac4a430423cbdd4e9d220ce6;hpb=8a9aba1ff5e66aad02aba0997339ea6ec60d6b1e;p=ghc-hetmet.git

diff --git a/ghc/compiler/simplCore/OccurAnal.lhs b/ghc/compiler/simplCore/OccurAnal.lhs
index 29d138e..f8915c7 100644
--- a/ghc/compiler/simplCore/OccurAnal.lhs
+++ b/ghc/compiler/simplCore/OccurAnal.lhs
@@ -12,7 +12,7 @@ core expression with (hopefully) improved usage information.
 
 \begin{code}
 module OccurAnal (
-	occurAnalysePgm, occurAnalyseGlobalExpr
+	occurAnalysePgm, occurAnalyseExpr
     ) where
 
 #include "HsVersions.h"
@@ -64,11 +64,9 @@ occurAnalysePgm binds
 	   (bs_usage, binds')   = go env binds
 	   (final_usage, bind') = occAnalBind env bind bs_usage
 
-occurAnalyseGlobalExpr :: CoreExpr -> CoreExpr
-occurAnalyseGlobalExpr expr
-  = 	-- Top level expr, so no interesting free vars, and
-	-- discard occurence info returned
-    snd (occAnal initOccEnv expr)
+occurAnalyseExpr :: CoreExpr -> CoreExpr
+	-- Do occurrence analysis, and discard occurence info returned
+occurAnalyseExpr expr = snd (occAnal initOccEnv expr)
 \end{code}