[commit: ghc] wip/nested-cpr: Add a warning to dmdTransformDataConSig (which I believe is dead code) (c679e8d)

[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/c679e8d5ade72abcf7d847b2cc222775be1b5fba/ghc

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

commit c679e8d5ade72abcf7d847b2cc222775be1b5fba
Author: Joachim Breitner <mail at joachim-breitner.de>
Date:   Tue Dec 10 13:56:08 2013 +0000

    Add a warning to dmdTransformDataConSig (which I believe is dead code)


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

c679e8d5ade72abcf7d847b2cc222775be1b5fba
 compiler/basicTypes/Demand.lhs |    1 +
 1 file changed, 1 insertion(+)

diff --git a/compiler/basicTypes/Demand.lhs b/compiler/basicTypes/Demand.lhs
index c66f2be..b7f2476 100644
--- a/compiler/basicTypes/Demand.lhs
+++ b/compiler/basicTypes/Demand.lhs
@@ -1519,6 +1519,7 @@ dmdTransformDataConSig arity (StrictSig (DmdType _ _ con_res))
                              (CD { sd = str, ud = abs })
   | Just str_dmds <- go_str arity str
   , Just abs_dmds <- go_abs arity abs
+  , WARN( True, text "dmdTransformDataConSig indeed still in use" ) True
   = DmdType emptyDmdEnv (mkJointDmds str_dmds abs_dmds) con_res
                 -- Must remember whether it's a product, hence con_res, not TopRes