[commit: ghc] master: Add a missing check for -fcpr-off (2dbb01a)

[git at git.haskell.org]

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

On branch  : master
Link       : http://ghc.haskell.org/trac/ghc/changeset/2dbb01a63a7ba7dc534c22815e80ab45c2f0ba69/ghc

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

commit 2dbb01a63a7ba7dc534c22815e80ab45c2f0ba69
Author: Reid Barton <rwbarton at gmail.com>
Date:   Wed Jul 29 12:27:50 2015 -0400

    Add a missing check for -fcpr-off
    
    Test Plan: validate
    
    Reviewers: austin, bgamari, simonpj
    
    Reviewed By: simonpj
    
    Subscribers: simonpj, thomie
    
    Differential Revision: https://phabricator.haskell.org/D1104
    
    GHC Trac Issues: #10696


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

2dbb01a63a7ba7dc534c22815e80ab45c2f0ba69
 compiler/basicTypes/Demand.hs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/compiler/basicTypes/Demand.hs b/compiler/basicTypes/Demand.hs
index bfb346e..bd2924a 100644
--- a/compiler/basicTypes/Demand.hs
+++ b/compiler/basicTypes/Demand.hs
@@ -1162,8 +1162,8 @@ nopDmdType = DmdType emptyDmdEnv [] topRes
 botDmdType = DmdType emptyDmdEnv [] botRes
 
 cprProdDmdType :: Arity -> DmdType
-cprProdDmdType _arity
-  = DmdType emptyDmdEnv [] (Dunno RetProd)
+cprProdDmdType arity
+  = DmdType emptyDmdEnv [] (vanillaCprProdRes arity)
 
 isNopDmdType :: DmdType -> Bool
 isNopDmdType (DmdType env [] res)