Commit 54966892 authored by sof's avatar sof

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

parent db2da00e
......@@ -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)
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment