[commit: ghc] wip/T10613: Remove dead code: countOnce, countMany (27e8ec7)

git at git.haskell.org git at git.haskell.org
Mon May 2 12:10:55 UTC 2016


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

On branch  : wip/T10613
Link       : http://ghc.haskell.org/trac/ghc/changeset/27e8ec7c2feba40e8161220513a0801b76d2e428/ghc

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

commit 27e8ec7c2feba40e8161220513a0801b76d2e428
Author: Joachim Breitner <mail at joachim-breitner.de>
Date:   Mon May 2 12:34:25 2016 +0200

    Remove dead code: countOnce, countMany
    
    and export Count abstractly (the constructors are not used anywhere).


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

27e8ec7c2feba40e8161220513a0801b76d2e428
 compiler/basicTypes/Demand.hs | 6 ------
 1 file changed, 6 deletions(-)

diff --git a/compiler/basicTypes/Demand.hs b/compiler/basicTypes/Demand.hs
index 928b038..f081842 100644
--- a/compiler/basicTypes/Demand.hs
+++ b/compiler/basicTypes/Demand.hs
@@ -9,7 +9,6 @@
 
 module Demand (
         StrDmd, UseDmd(..), Count(..),
-        countOnce, countMany,   -- cardinality
 
         Demand, CleanDemand, getStrDmd, getUseDmd,
         mkProdDmd, mkOnceUsedDmd, mkManyUsedDmd, mkHeadStrict, oneifyDmd,
@@ -378,11 +377,6 @@ instance Outputable Count where
   ppr One  = char '1'
   ppr Many = text ""
 
--- Well-formedness preserving constructors for the Absence domain
-countOnce, countMany :: Count
-countOnce = One
-countMany = Many
-
 useBot, useTop :: ArgUse
 useBot     = Abs
 useTop     = Use Many Used



More information about the ghc-commits mailing list