From 945229a28e1f6081b1a2ba00a7706e25d53b6524 Mon Sep 17 00:00:00 2001 From: panne Date: Fri, 25 Apr 2003 20:58:09 +0000 Subject: [PATCH] [project @ 2003-04-25 20:58:09 by panne] Unbreak 2nd stage --- ghc/compiler/hsSyn/Convert.lhs | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) 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 -- 1.7.10.4