[commit: ghc] wip/T16039: eta reduce (8f9af63)

[git at git.haskell.org]

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

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

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

commit 8f9af636c2e571c52fb2e12decf3e993704fa470
Author: Gabor Greif <ggreif at gmail.com>
Date:   Fri Dec 14 20:01:11 2018 +0100

    eta reduce


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

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

diff --git a/compiler/simplCore/SetLevels.hs b/compiler/simplCore/SetLevels.hs
index 87e0e18..0a563a1 100644
--- a/compiler/simplCore/SetLevels.hs
+++ b/compiler/simplCore/SetLevels.hs
@@ -563,8 +563,8 @@ lvlNonTailMFE :: LevelEnv             -- Level of in-scope names/tyvars
                                       --   or let]
               -> CoreExprWithFVs      -- input expression
               -> LvlM LevelledExpr    -- Result expression
-lvlNonTailMFE env strict_ctxt ann_expr
-  = lvlMFE (placeJoinCeiling env) strict_ctxt ann_expr
+lvlNonTailMFE env
+  = lvlMFE (placeJoinCeiling env)
 
 lvlMFE ::  LevelEnv             -- Level of in-scope names/tyvars
         -> Bool                 -- True <=> strict context [body of case or let]