[commit: ghc] master: Remove unused returnsCPR (b26e2f9)

[git at git.haskell.org]

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

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

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

commit b26e2f92c5c6f77fe361293a128da637e728959c
Author: Joachim Breitner <mail at joachim-breitner.de>
Date:   Thu Jan 16 16:55:07 2014 +0000

    Remove unused returnsCPR


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

b26e2f92c5c6f77fe361293a128da637e728959c
 compiler/basicTypes/Demand.lhs |    5 +----
 1 file changed, 1 insertion(+), 4 deletions(-)

diff --git a/compiler/basicTypes/Demand.lhs b/compiler/basicTypes/Demand.lhs
index 879c156..01d53a4 100644
--- a/compiler/basicTypes/Demand.lhs
+++ b/compiler/basicTypes/Demand.lhs
@@ -30,7 +30,7 @@ module Demand (
         isBotRes, isTopRes,
         topRes, botRes, cprProdRes, vanillaCprProdRes, cprSumRes,
         appIsBottom, isBottomingSig, pprIfaceStrictSig, 
-        trimCPRInfo, returnsCPR, returnsCPR_maybe,
+        trimCPRInfo, returnsCPR_maybe,
         StrictSig(..), mkStrictSig, mkClosedStrictSig, nopSig, botSig, cprProdSig,
         isNopSig, splitStrictSig, increaseStrictSigArity,
 
@@ -805,9 +805,6 @@ trimCPRInfo trim_all trim_sums res
                        | otherwise = RetProd
     trimC NoCPR = NoCPR
 
-returnsCPR :: DmdResult -> Bool
-returnsCPR dr = isJust (returnsCPR_maybe dr)
-
 returnsCPR_maybe :: DmdResult -> Maybe ConTag
 returnsCPR_maybe (Dunno c)     = retCPR_maybe c
 returnsCPR_maybe Diverges      = Nothing