[project @ 2004-09-29 13:46:17 by simonpj]

[ghc-hetmet.git] / ghc / compiler / deSugar / DsExpr.lhs

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