From: Roman Leshchinskiy <rl@cse.unsw.edu.au>
Date: Mon, 11 Feb 2008 04:02:11 +0000 (+0000)
Subject: Fix warning (FIX validate)
X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=commitdiff_plain;h=4c6c0d44321d8481537a31b02dbaf39b3eeb8513

Fix warning (FIX validate)
---

diff --git a/compiler/deSugar/DsExpr.lhs b/compiler/deSugar/DsExpr.lhs
index dce8870..5366c56 100644
--- a/compiler/deSugar/DsExpr.lhs
+++ b/compiler/deSugar/DsExpr.lhs
@@ -532,7 +532,7 @@ dsDo	:: [LStmt Id]
 	-> Type			-- Type of the whole expression
 	-> DsM CoreExpr
 
-dsDo stmts body result_ty
+dsDo stmts body _result_ty
   = go (map unLoc stmts)
   where
     go [] = dsLExpr body