From: simonpj <unknown>
Date: Wed, 29 Sep 2004 13:46:17 +0000 (+0000)
Subject: [project @ 2004-09-29 13:46:17 by simonpj]
X-Git-Tag: Initial_conversion_from_CVS_complete~1568
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=2c68b1afb33bd4f7a2d83f428de236e7ace2723f;p=ghc-hetmet.git

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

diff --git a/ghc/compiler/deSugar/DsExpr.lhs b/ghc/compiler/deSugar/DsExpr.lhs
index 51e01bd..42f5add 100644
--- 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