[commit: ghc] master: Remove a redundant wrapper function (8241cdd)

[Ian Lynagh]

Repository : http://darcs.haskell.org/ghc.git/

On branch  : master

https://github.com/ghc/ghc/commit/8241cdd41fd22fbd9668432289828c4c04e23ba7

>---------------------------------------------------------------

commit 8241cdd41fd22fbd9668432289828c4c04e23ba7
Author: Ian Lynagh <ian at well-typed.com>
Date:   Fri May 10 16:30:27 2013 +0100

    Remove a redundant wrapper function

>---------------------------------------------------------------

 compiler/coreSyn/CoreSubst.lhs | 6 ++----
 1 file changed, 2 insertions(+), 4 deletions(-)

diff --git a/compiler/coreSyn/CoreSubst.lhs b/compiler/coreSyn/CoreSubst.lhs
index 4f6883a..95cb7f8 100644
--- a/compiler/coreSyn/CoreSubst.lhs
+++ b/compiler/coreSyn/CoreSubst.lhs
@@ -919,10 +919,8 @@ type OutExpr = CoreExpr
 -- In these functions the substitution maps InVar -> OutExpr
 
 ----------------------
-simple_opt_expr, simple_opt_expr' :: Subst -> InExpr -> OutExpr
-simple_opt_expr s e = simple_opt_expr' s e
-
-simple_opt_expr' subst expr
+simple_opt_expr :: Subst -> InExpr -> OutExpr
+simple_opt_expr subst expr
   = go expr
   where
     go (Var v)          = lookupIdSubst (text "simpleOptExpr") subst v