From: igloo <unknown>
Date: Wed, 18 Dec 2002 17:28:17 +0000 (+0000)
Subject: [project @ 2002-12-18 17:28:17 by igloo]
X-Git-Tag: Approx_11550_changesets_converted~1334
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=d53da8f27298c26780882eda20a15486b6214fa7;p=ghc-hetmet.git

[project @ 2002-12-18 17:28:17 by igloo]
Convert Tup [e] and Pat [p] and e, p respectively.
---

diff --git a/ghc/compiler/hsSyn/Convert.lhs b/ghc/compiler/hsSyn/Convert.lhs
index aa3454d..033f255 100644
--- a/ghc/compiler/hsSyn/Convert.lhs
+++ b/ghc/compiler/hsSyn/Convert.lhs
@@ -158,6 +158,7 @@ cvt (Lit l)
 
 cvt (App x y)     = HsApp (cvt x) (cvt y)
 cvt (Lam ps e)    = HsLam (mkSimpleMatch (map cvtp ps) (cvt e) void loc0)
+cvt (Tup [e])	  = cvt e
 cvt (Tup es)	  = ExplicitTuple(map cvt es) Boxed
 cvt (Cond x y z)  = HsIf (cvt x) (cvt y) (cvt z) loc0
 cvt (Let ds e)	  = HsLet (cvtdecs ds) (cvt e)
@@ -253,6 +254,7 @@ cvtp (Plit l)
 							-- about that!
   | otherwise	    = LitPat (cvtLit l)
 cvtp (Pvar s)     = VarPat(vName s)
+cvtp (Ptup [p])   = cvtp p
 cvtp (Ptup ps)    = TuplePat (map cvtp ps) Boxed
 cvtp (Pcon s ps)  = ConPatIn (cName s) (PrefixCon (map cvtp ps))
 cvtp (Ptilde p)   = LazyPat (cvtp p)