[commit: ghc] wip/T16039: eta (f6800fa)

git at git.haskell.org git at git.haskell.org
Sun Mar 31 15:07:13 UTC 2019


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

On branch  : wip/T16039
Link       : http://ghc.haskell.org/trac/ghc/changeset/f6800fa8c6d9714818c6a6cf5b498f61e0cb4d43/ghc

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

commit f6800fa8c6d9714818c6a6cf5b498f61e0cb4d43
Author: Gabor Greif <ggreif at gmail.com>
Date:   Fri Dec 14 20:23:25 2018 +0100

    eta


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

f6800fa8c6d9714818c6a6cf5b498f61e0cb4d43
 compiler/simplCore/SetLevels.hs | 6 ++----
 1 file changed, 2 insertions(+), 4 deletions(-)

diff --git a/compiler/simplCore/SetLevels.hs b/compiler/simplCore/SetLevels.hs
index 0a563a1..e64e92b 100644
--- a/compiler/simplCore/SetLevels.hs
+++ b/compiler/simplCore/SetLevels.hs
@@ -390,8 +390,7 @@ lvlExpr env (_, AnnCase scrut case_bndr ty alts)
 lvlNonTailExpr :: LevelEnv             -- Context
                -> CoreExprWithFVs      -- Input expression
                -> LvlM LevelledExpr    -- Result expression
-lvlNonTailExpr env expr
-  = lvlExpr (placeJoinCeiling env) expr
+lvlNonTailExpr = lvlExpr . placeJoinCeiling
 
 -------------------------------------------
 lvlApp :: LevelEnv
@@ -563,8 +562,7 @@ lvlNonTailMFE :: LevelEnv             -- Level of in-scope names/tyvars
                                       --   or let]
               -> CoreExprWithFVs      -- input expression
               -> LvlM LevelledExpr    -- Result expression
-lvlNonTailMFE env
-  = lvlMFE (placeJoinCeiling env)
+lvlNonTailMFE = lvlMFE . placeJoinCeiling
 
 lvlMFE ::  LevelEnv             -- Level of in-scope names/tyvars
         -> Bool                 -- True <=> strict context [body of case or let]



More information about the ghc-commits mailing list