projects
/
ghc-hetmet.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(from parent 1:
315c25a
)
[project @ 2004-09-29 13:46:17 by simonpj]
author
simonpj
<unknown>
Wed, 29 Sep 2004 13:46:17 +0000
(13:46 +0000)
committer
simonpj
<unknown>
Wed, 29 Sep 2004 13:46:17 +0000
(13:46 +0000)
Remove unused defnition
ghc/compiler/deSugar/DsExpr.lhs
patch
|
blob
|
history
diff --git
a/ghc/compiler/deSugar/DsExpr.lhs
b/ghc/compiler/deSugar/DsExpr.lhs
index
51e01bd
..
42f5add
100644
(file)
--- a/
ghc/compiler/deSugar/DsExpr.lhs
+++ b/
ghc/compiler/deSugar/DsExpr.lhs
@@
-582,7
+582,6
@@
dsDo :: HsStmtContext Name
dsDo do_or_lc stmts ids result_ty
= dsReboundNames ids `thenDs` \ (meth_binds, ds_meths) ->
let
- return_id = lookupReboundName ds_meths returnMName
fail_id = lookupReboundName ds_meths failMName
bind_id = lookupReboundName ds_meths bindMName
then_id = lookupReboundName ds_meths thenMName