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 4bc3bf51ce8a..0a0b58e47b15 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)
--
GitLab