From 2c68b1afb33bd4f7a2d83f428de236e7ace2723f Mon Sep 17 00:00:00 2001
From: simonpj <unknown>
Date: Wed, 29 Sep 2004 13:46:17 +0000
Subject: [PATCH] [project @ 2004-09-29 13:46:17 by simonpj] Remove unused
 defnition

---
 ghc/compiler/deSugar/DsExpr.lhs |    1 -
 1 file changed, 1 deletion(-)

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
-- 
1.7.10.4