[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 (file)
--- 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)