[commit: ghc] master: Expose cseExpr from CSE (54b9b06)

[git at git.haskell.org]

Repository : ssh://git@git.haskell.org/ghc

On branch  : master
Link       : http://ghc.haskell.org/trac/ghc/changeset/54b9b064fc7960a4dbad387481bc3a6496cc397f/ghc

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

commit 54b9b064fc7960a4dbad387481bc3a6496cc397f
Author: Joachim Breitner <mail at joachim-breitner.de>
Date:   Thu Feb 2 20:28:29 2017 -0500

    Expose cseExpr from CSE
    
    for the benefit of GHC API users who want to CSE single expressions.
    
    Differential Revision: https://phabricator.haskell.org/D3069


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

54b9b064fc7960a4dbad387481bc3a6496cc397f
 compiler/simplCore/CSE.hs | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/compiler/simplCore/CSE.hs b/compiler/simplCore/CSE.hs
index 971b3e0..21dbd07 100644
--- a/compiler/simplCore/CSE.hs
+++ b/compiler/simplCore/CSE.hs
@@ -6,7 +6,7 @@
 
 {-# LANGUAGE CPP #-}
 
-module CSE (cseProgram) where
+module CSE (cseProgram, cseOneExpr) where
 
 #include "HsVersions.h"
 
@@ -373,6 +373,9 @@ tryForCSE toplevel env expr
     -- top of the replaced sub-expression. This is probably not too
     -- useful in practice, but upholds our semantics.
 
+cseOneExpr :: CoreExpr -> CoreExpr
+cseOneExpr = cseExpr emptyCSEnv
+
 cseExpr :: CSEnv -> InExpr -> OutExpr
 cseExpr env (Type t)              = Type (substTy (csEnvSubst env) t)
 cseExpr env (Coercion c)          = Coercion (substCo (csEnvSubst env) c)