From 4c6c0d44321d8481537a31b02dbaf39b3eeb8513 Mon Sep 17 00:00:00 2001 From: Roman Leshchinskiy Date: Mon, 11 Feb 2008 04:02:11 +0000 Subject: [PATCH] Fix warning (FIX validate) --- compiler/deSugar/DsExpr.lhs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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 -- 1.7.10.4