X-Git-Url: https://git.stderr.nl/gitweb?a=blobdiff_plain;f=Normalize.hs;h=ea8dd045d60579df06df560667806ec4f51717d6;hb=3a611c1075c67670ed6c86a5e74b59b0b379721c;hp=59e0296f8cddb61896529a0195659b93764f43de;hpb=6ca72a3d64bf6bc61aac478ac862c8dc866dc31f;p=matthijs%2Fmaster-project%2Fc%CE%BBash.git

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')