projects
/
ghc-hetmet.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
[project @ 1997-06-13 04:11:47 by sof]
[ghc-hetmet.git]
/
ghc
/
compiler
/
deSugar
/
DsExpr.lhs
diff --git
a/ghc/compiler/deSugar/DsExpr.lhs
b/ghc/compiler/deSugar/DsExpr.lhs
index
49329ab
..
1478d68
100644
(file)
--- a/
ghc/compiler/deSugar/DsExpr.lhs
+++ b/
ghc/compiler/deSugar/DsExpr.lhs
@@
-266,7
+266,7
@@
dsExpr expr@(HsCase discrim matches src_loc)
returnDs ( mkCoLetAny (NonRec discrim_var core_discrim) matching_code )
dsExpr (HsLet binds expr)
returnDs ( mkCoLetAny (NonRec discrim_var core_discrim) matching_code )
dsExpr (HsLet binds expr)
- = dsBinds Nothing binds `thenDs` \ core_binds ->
+ = dsBinds False binds `thenDs` \ core_binds ->
dsExpr expr `thenDs` \ core_expr ->
returnDs ( mkCoLetsAny core_binds core_expr )
dsExpr expr `thenDs` \ core_expr ->
returnDs ( mkCoLetsAny core_binds core_expr )
@@
-654,7
+654,7
@@
dsDo do_or_lc stmts return_id then_id zero_id result_ty
VarArg (mkValLam [ignored_result_id] rest)]
go (LetStmt binds : stmts )
VarArg (mkValLam [ignored_result_id] rest)]
go (LetStmt binds : stmts )
- = dsBinds Nothing binds `thenDs` \ binds2 ->
+ = dsBinds False binds `thenDs` \ binds2 ->
go stmts `thenDs` \ rest ->
returnDs (mkCoLetsAny binds2 rest)
go stmts `thenDs` \ rest ->
returnDs (mkCoLetsAny binds2 rest)