From d1d40285d361f2f5fbee57b5a621abb5230565c7 Mon Sep 17 00:00:00 2001
From: quintela <unknown>
Date: Tue, 2 Dec 1997 18:23:56 +0000
Subject: [PATCH] [project @ 1997-12-02 18:23:56 by quintela] Changes related
with the new type of MatchSimply
---
ghc/compiler/deSugar/DsListComp.lhs | 4 ++--
1 file changed, 2 insertions(+), 2 deletions(-)
diff --git a/ghc/compiler/deSugar/DsListComp.lhs b/ghc/compiler/deSugar/DsListComp.lhs
index 7147a4a16f60..a202ad92e418 100644
--- a/ghc/compiler/deSugar/DsListComp.lhs
+++ b/ghc/compiler/deSugar/DsListComp.lhs
@@ -152,7 +152,7 @@ deListComp (BindStmt pat list1 locn : quals) core_list2 -- rule A' above
-- the "fail" value ...
mkAppDs (Var h) [VarArg (Var u3)] `thenDs` \ core_fail ->
deListComp quals core_fail `thenDs` \ rest_expr ->
- matchSimply (Var u2) pat res_ty
+ matchSimply (Var u2) ListCompMatch pat res_ty
rest_expr core_fail `thenDs` \ core_match ->
mkAppDs (Var h) [VarArg core_list1] `thenDs` \ letrec_body ->
@@ -225,7 +225,7 @@ dfListComp c_ty c_id n_ty n_id (BindStmt pat list1 locn : quals)
dfListComp c_ty c_id b_ty b quals `thenDs` \ core_rest ->
-- build the pattern match
- matchSimply (Var p) pat b_ty core_rest (Var b) `thenDs` \ core_expr ->
+ matchSimply (Var p) ListCompMatch pat b_ty core_rest (Var b) `thenDs` \ core_expr ->
-- now build the outermost foldr, and return
--
GitLab