From: Matthijs Kooijman <m.kooijman@student.utwente.nl>
Date: Sun, 21 Jun 2009 16:21:20 +0000 (+0200)
Subject: Actually use the introduced let from a few commits back...
X-Git-Url: https://git.stderr.nl/gitweb?a=commitdiff_plain;h=c124a3ba382089cf9e8e7c2bb1713519ac0cb02b;p=matthijs%2Fmaster-project%2Fc%CE%BBash.git

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

diff --git a/Normalize.hs b/Normalize.hs
index 59e0296..ea8dd04 100644
--- 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')