Repository : ssh://darcs.haskell.org//srv/darcs/ghc On branch : master
http://hackage.haskell.org/trac/ghc/changeset/14d5e04a87717eab39007c4b329553b55f53ad35 >--------------------------------------------------------------- commit 14d5e04a87717eab39007c4b329553b55f53ad35 Author: Ian Lynagh <[email protected]> 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' } _______________________________________________ Cvs-ghc mailing list [email protected] http://www.haskell.org/mailman/listinfo/cvs-ghc
