diff options
| author | Simon Peyton Jones <simonpj@microsoft.com> | 2011-07-20 08:44:14 +0100 |
|---|---|---|
| committer | Simon Peyton Jones <simonpj@microsoft.com> | 2011-07-20 08:44:14 +0100 |
| commit | 8202a5738d6dba1083ae4f07965e92877cd2be2d (patch) | |
| tree | 710f5b3eb95dd7eeb9e4ab3fd51f4f2d1e3f4365 /compiler/hsSyn | |
| parent | 5c0f947b3081055d9ca6b275626c94d9dc49c2e0 (diff) | |
| parent | 14d5e04a87717eab39007c4b329553b55f53ad35 (diff) | |
| download | haskell-8202a5738d6dba1083ae4f07965e92877cd2be2d.tar.gz | |
Merge branch 'master' of http://darcs.haskell.org/ghc
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' } |