projects
/
matthijs
/
master-project
/
cλash.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
6ca72a3
)
Actually use the introduced let from a few commits back...
author
Matthijs Kooijman
<m.kooijman@student.utwente.nl>
Sun, 21 Jun 2009 16:21:20 +0000
(18:21 +0200)
committer
Matthijs Kooijman
<m.kooijman@student.utwente.nl>
Sun, 21 Jun 2009 16:21:20 +0000
(18:21 +0200)
Normalize.hs
patch
|
blob
|
history
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
-- 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')
trace ("\nAfter:\n\n" ++ showSDoc ( ppr expr')) $ return ()
-- And store the normalized version in the session
modA tsBindings (Map.insert bndr expr')