Remove unused returnsCPR
authorJoachim Breitner <mail@joachim-breitner.de>
Thu, 16 Jan 2014 16:55:07 +0000 (16:55 +0000)
committerJoachim Breitner <mail@joachim-breitner.de>
Thu, 16 Jan 2014 16:55:07 +0000 (16:55 +0000)
compiler/basicTypes/Demand.lhs

index 879c156..01d53a4 100644 (file)
@@ -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