From 549668925524972cbcb36d3170377915a2e6c8f3 Mon Sep 17 00:00:00 2001
From: sof <unknown>
Date: Mon, 25 Aug 1997 22:31:48 +0000
Subject: [PATCH] [project @ 1997-08-25 22:31:48 by sof]

---
 ghc/compiler/typecheck/TcGRHSs.lhs |    2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/ghc/compiler/typecheck/TcGRHSs.lhs b/ghc/compiler/typecheck/TcGRHSs.lhs
index 4bc3bf5..0a0b58e 100644
--- a/ghc/compiler/typecheck/TcGRHSs.lhs
+++ b/ghc/compiler/typecheck/TcGRHSs.lhs
@@ -53,7 +53,7 @@ tcGRHS expected_ty (GRHS guard expr locn)
   where
     tc_stmts []		  = tcExpr expr expected_ty	  `thenTc`    \ (expr2, expr_lie) ->
 			    returnTc (([], expr2), expr_lie)
-    tc_stmts (stmt:stmts) = tcStmt tcExpr ListComp (\x->x) combine stmt $
+    tc_stmts (stmt:stmts) = tcStmt tcExpr Guard (\x->x) combine stmt $
 			    tc_stmts stmts
 
     combine stmt _ (stmts, expr) = (stmt:stmts, expr)
-- 
1.7.10.4