[commit: ghc] wip/nested-cpr: Add a warning to dmdTransformDataConSig (which I believe is dead code) (222e1b4)
git at git.haskell.org
git at git.haskell.org
Tue Dec 10 13:55:51 UTC 2013
Repository : ssh://git@git.haskell.org/ghc
On branch : wip/nested-cpr
Link : http://ghc.haskell.org/trac/ghc/changeset/222e1b405cd90a071d79b25b2b25103746302993/ghc
>---------------------------------------------------------------
commit 222e1b405cd90a071d79b25b2b25103746302993
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)
>---------------------------------------------------------------
222e1b405cd90a071d79b25b2b25103746302993
compiler/basicTypes/Demand.lhs | 1 +
1 file changed, 1 insertion(+)
diff --git a/compiler/basicTypes/Demand.lhs b/compiler/basicTypes/Demand.lhs
index dc88692..8c7b009 100644
--- a/compiler/basicTypes/Demand.lhs
+++ b/compiler/basicTypes/Demand.lhs
@@ -1522,6 +1522,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
More information about the ghc-commits
mailing list