[commit: ghc] ghc-7.2: Fix #5332: (# 0 #), unlike ( 0 ), is not the same as 0 (b33645f)

[Ian Lynagh]

Repository : ssh://darcs.haskell.org//srv/darcs/ghc

On branch  : ghc-7.2

http://hackage.haskell.org/trac/ghc/changeset/b33645f9be59452de1522dd26bb16e56e22c667f

>---------------------------------------------------------------

commit b33645f9be59452de1522dd26bb16e56e22c667f
Author: Ian Lynagh <igloo at earth.li>
Date:   Tue Jul 19 20:59:05 2011 +0100

    Fix #5332: (# 0 #), unlike ( 0 ), is not the same as 0

>---------------------------------------------------------------

 compiler/hsSyn/Convert.lhs |    1 -
 1 files changed, 0 insertions(+), 1 deletions(-)

diff --git a/compiler/hsSyn/Convert.lhs b/compiler/hsSyn/Convert.lhs
index cd584e1..7c5cd36 100644
--- a/compiler/hsSyn/Convert.lhs
+++ b/compiler/hsSyn/Convert.lhs
@@ -464,7 +464,6 @@ cvtl e = wrapL (cvt e)
 			    ; return $ HsLam (mkMatchGroup [mkSimpleMatch ps' e']) }
     cvt (TupE [e])     = cvt e	-- Singleton tuples treated like nothing (just parens)
     cvt (TupE es)      = do { es' <- mapM cvtl es; return $ ExplicitTuple (map Present es') Boxed }
-    cvt (UnboxedTupE [e])     = cvt e	-- Singleton tuples treated like nothing (just parens)
     cvt (UnboxedTupE es)      = do { es' <- mapM cvtl es; return $ ExplicitTuple (map Present es') Unboxed }
     cvt (CondE x y z)  = do { x' <- cvtl x; y' <- cvtl y; z' <- cvtl z;
 			    ; return $ HsIf (Just noSyntaxExpr) x' y' z' }