[commit: ghc] wip/nested-cpr: Disable avoiding singleton (# #), for compatibility with old code (3d05abc)

[git at git.haskell.org]

Repository : ssh://git@git.haskell.org/ghc

On branch  : wip/nested-cpr
Link       : http://ghc.haskell.org/trac/ghc/changeset/3d05abc113bb9c14fcd70bbcd79176bd5b5c70bc/ghc

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

commit 3d05abc113bb9c14fcd70bbcd79176bd5b5c70bc
Author: Joachim Breitner <mail at joachim-breitner.de>
Date:   Thu Dec 5 11:59:24 2013 +0000

    Disable avoiding singleton (# #), for compatibility with old code


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

3d05abc113bb9c14fcd70bbcd79176bd5b5c70bc
 compiler/stranal/WwLib.lhs |    3 +++
 1 file changed, 3 insertions(+)

diff --git a/compiler/stranal/WwLib.lhs b/compiler/stranal/WwLib.lhs
index b79dc05..0fad56b 100644
--- a/compiler/stranal/WwLib.lhs
+++ b/compiler/stranal/WwLib.lhs
@@ -541,11 +541,14 @@ mkWWcpr body_ty res
          -- in Text.Read.Lex, for example.
          _ | isWWUseless body_ty res -> return (id, id, body_ty)
 
+         {-
          -- When we have to wrap only on argument, skip the (# .. #)
          [arg_var] -> do
            return ( \ wkr_call -> mkRename wkr_call arg_var con_app
                   , \ body     -> decon body (Var arg_var)
                   , idType arg_var )
+        -}
+
          _ -> do
            wrap_wild_uniq <- getUniqueM