diff options
| author | Ian Lynagh <igloo@earth.li> | 2011-07-19 20:59:05 +0100 |
|---|---|---|
| committer | Ian Lynagh <igloo@earth.li> | 2011-07-19 20:59:05 +0100 |
| commit | 14d5e04a87717eab39007c4b329553b55f53ad35 (patch) | |
| tree | 928454935d23f22ef6d4f08cd505c361b9eee5f2 /compiler/hsSyn | |
| parent | ecf2b8715bde2f79f8eafc37f4eb4a9ef46530ad (diff) | |
| download | haskell-14d5e04a87717eab39007c4b329553b55f53ad35.tar.gz | |
Fix #5332: (# 0 #), unlike ( 0 ), is not the same as 0
Diffstat (limited to 'compiler/hsSyn')
| -rw-r--r-- | 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 cd584e1e2c..7c5cd363bf 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' } |