Commit 766b11ea authored by Andreas Klebinger's avatar Andreas Klebinger Committed by Marge Bot

Remove leftover trace messages from the keepAlive# work.

parent 94bbc45d
......@@ -806,9 +806,8 @@ cpeApp top_env expr
: CpeApp arg
: CpeApp s0
: CpeApp k
: rest <- pprTrace "cpe_app keepAlive#" (ppr args) args
= do { pprTraceM "cpe_app(keepAlive#)" (ppr n)
; y <- newVar result_ty
: rest <- args
= do { y <- newVar result_ty
; s2 <- newVar realWorldStatePrimTy
; -- beta reduce if possible
; (floats, k') <- case k of
......@@ -818,7 +817,6 @@ cpeApp top_env expr
expr = Case k' y result_ty [Alt DEFAULT [] rhs]
rhs = let scrut = mkApps (Var touchId) [Type arg_rep, Type arg_ty, arg, Var realWorldPrimId]
in Case scrut s2 result_ty [Alt DEFAULT [] (Var y)]
; pprTraceM "cpe_app(keepAlive)" (ppr expr)
; (floats', expr') <- cpeBody env expr
; return (floats `appendFloats` floats', expr')
}
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment