X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Fcompiler%2FsimplCore%2FSimplCore.lhs;h=1f59c633bc7cbbd730082fd96c379296ac46cfe1;hb=cbf5bb17365e9228f3f724b87f958982c4b66cba;hp=55023e724c5b7435ddd01416288a4528814c2282;hpb=32dad92226602a7ba93a39402fce726ee9024e0a;p=ghc-hetmet.git

diff --git a/ghc/compiler/simplCore/SimplCore.lhs b/ghc/compiler/simplCore/SimplCore.lhs
index 55023e7..1f59c63 100644
--- a/ghc/compiler/simplCore/SimplCore.lhs
+++ b/ghc/compiler/simplCore/SimplCore.lhs
@@ -25,7 +25,7 @@ import Module		( moduleEnvElts )
 import CoreUnfold
 import PprCore		( pprCoreBindings, pprIdCoreRule, pprCoreExpr )
 import OccurAnal	( occurAnalyseBinds )
-import CoreUtils	( etaReduceExpr, coreBindsSize )
+import CoreUtils	( etaReduce, coreBindsSize )
 import Simplify		( simplTopBinds, simplExpr )
 import SimplUtils	( simplBinders )
 import SimplMonad
@@ -297,7 +297,7 @@ simpl_arg e
 -- Otherwise we don't match when given an argument like
 --	(\a. h a a)
   = simplExpr e 	`thenSmpl` \ e' ->
-    returnSmpl (etaReduceExpr e')
+    returnSmpl (etaReduce e')
 \end{code}