Actually use the introduced let from a few commits back...

diff --git a/Normalize.hs b/Normalize.hs
index 59e0296f8cddb61896529a0195659b93764f43de..ea8dd045d60579df06df560667806ec4f51717d6 100644 (file)
--- a/Normalize.hs
+++ b/Normalize.hs
@@ -455,8 +455,8 @@ normalizeBind bndr =
               -- the last let).
               let expr' = Let (Rec []) expr
               -- Normalize this expression
-              trace ("Transforming " ++ (show bndr) ++ "\nBefore:\n\n" ++ showSDoc ( ppr expr ) ++ "\n") $ return ()
-              expr' <- dotransforms transforms expr
+              trace ("Transforming " ++ (show bndr) ++ "\nBefore:\n\n" ++ showSDoc ( ppr expr' ) ++ "\n") $ return ()
+              expr' <- dotransforms transforms expr'
               trace ("\nAfter:\n\n" ++ showSDoc ( ppr expr')) $ return ()
               -- And store the normalized version in the session
               modA tsBindings (Map.insert bndr expr')