From: sof <unknown>
Date: Mon, 25 Aug 1997 22:31:48 +0000 (+0000)
Subject: [project @ 1997-08-25 22:31:48 by sof]
X-Git-Tag: Approximately_1000_patches_recorded~99
X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=commitdiff_plain;h=549668925524972cbcb36d3170377915a2e6c8f3

[project @ 1997-08-25 22:31:48 by sof]
---

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)