From: panne <unknown>
Date: Fri, 25 Apr 2003 20:58:09 +0000 (+0000)
Subject: [project @ 2003-04-25 20:58:09 by panne]
X-Git-Tag: Approx_11550_changesets_converted~943
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=945229a28e1f6081b1a2ba00a7706e25d53b6524;p=ghc-hetmet.git

[project @ 2003-04-25 20:58:09 by panne]
Unbreak 2nd stage
---

diff --git a/ghc/compiler/hsSyn/Convert.lhs b/ghc/compiler/hsSyn/Convert.lhs
index 68bd4f9..4e610cb 100644
--- a/ghc/compiler/hsSyn/Convert.lhs
+++ b/ghc/compiler/hsSyn/Convert.lhs
@@ -219,7 +219,7 @@ cvtd x = panic "Illegal kind of declaration in where clause"
 
 cvtclause :: Meta.Clause -> Hs.Match RdrName
 cvtclause (Clause ps body wheres)
-    = Match (map cvtp ps) Nothing (GRHSs (cvtguard body) (cvtdecs wheres) void)
+    = Hs.Match (map cvtp ps) Nothing (GRHSs (cvtguard body) (cvtdecs wheres) void)
 
 
 
@@ -240,8 +240,8 @@ cvtstmts (ParSt dss : ss)  = ParStmt(map cvtstmts dss)      : cvtstmts ss
 
 
 cvtm :: Meta.Match -> Hs.Match RdrName
-cvtm (Match p body wheres)
-    = Match [cvtp p] Nothing (GRHSs (cvtguard body) (cvtdecs wheres) void)
+cvtm (Meta.Match p body wheres)
+    = Hs.Match [cvtp p] Nothing (GRHSs (cvtguard body) (cvtdecs wheres) void)
                              
 cvtguard :: Meta.RightHandSide -> [GRHS RdrName]
 cvtguard (Guarded pairs) = map cvtpair pairs