Commit ea8ecf4f authored by igloo's avatar igloo

[project @ 2002-12-10 21:25:07 by igloo]

Use real datatypes for TH Clause and Match
parent ff8cd2c5
......@@ -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
......
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