From d53da8f27298c26780882eda20a15486b6214fa7 Mon Sep 17 00:00:00 2001
From: igloo <unknown>
Date: Wed, 18 Dec 2002 17:28:17 +0000
Subject: [PATCH] [project @ 2002-12-18 17:28:17 by igloo] Convert Tup [e] and
 Pat [p] and e, p respectively.

---
 ghc/compiler/hsSyn/Convert.lhs |    2 ++
 1 file changed, 2 insertions(+)

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)
-- 
1.7.10.4