From ea8ecf4fe9b124c5847ddf5fad110d8cf051bfed Mon Sep 17 00:00:00 2001 From: igloo Date: Tue, 10 Dec 2002 21:25:08 +0000 Subject: [PATCH] [project @ 2002-12-10 21:25:07 by igloo] Use real datatypes for TH Clause and Match --- ghc/compiler/hsSyn/Convert.lhs | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/ghc/compiler/hsSyn/Convert.lhs b/ghc/compiler/hsSyn/Convert.lhs index 858d914..9785a5f 100644 --- a/ghc/compiler/hsSyn/Convert.lhs +++ b/ghc/compiler/hsSyn/Convert.lhs @@ -160,8 +160,8 @@ cvtd x = panic "Illegal kind of declaration in where clause" cvtclause :: Meta.Clause (Meta.Pat) (Meta.Exp) (Meta.Dec) -> Hs.Match RdrName -cvtclause (ps,body,wheres) = Match (map cvtp ps) Nothing - (GRHSs (cvtguard body) (cvtdecs wheres) void) +cvtclause (Clause ps body wheres) + = Match (map cvtp ps) Nothing (GRHSs (cvtguard body) (cvtdecs wheres) void) @@ -182,8 +182,8 @@ cvtstmts (ParSt dss : ss) = ParStmt(map cvtstmts dss) : cvtstmts ss cvtm :: Meta.Mat -> Hs.Match RdrName -cvtm (p,body,wheres) = Match [cvtp p] Nothing - (GRHSs (cvtguard body) (cvtdecs wheres) void) +cvtm (Mat p body wheres) + = Match [cvtp p] Nothing (GRHSs (cvtguard body) (cvtdecs wheres) void) cvtguard :: Meta.Rhs -> [GRHS RdrName] cvtguard (Guarded pairs) = map cvtpair pairs -- 1.7.10.4