[commit: ghc] master: Remove dead code: countOnce, countMany (a7f65b8)

git at git.haskell.org git at git.haskell.org
Fri Jun 17 08:35:33 UTC 2016


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

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

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

commit a7f65b8787b0521397ee09061394425aa69bc6e0
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).


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

a7f65b8787b0521397ee09061394425aa69bc6e0
 compiler/basicTypes/Demand.hs | 8 +-------
 1 file changed, 1 insertion(+), 7 deletions(-)

diff --git a/compiler/basicTypes/Demand.hs b/compiler/basicTypes/Demand.hs
index 1ca65b0..4ae6812 100644
--- a/compiler/basicTypes/Demand.hs
+++ b/compiler/basicTypes/Demand.hs
@@ -8,8 +8,7 @@
 {-# LANGUAGE CPP, FlexibleInstances, TypeSynonymInstances, RecordWildCards #-}
 
 module Demand (
-        StrDmd, UseDmd(..), Count(..),
-        countOnce, countMany,   -- cardinality
+        StrDmd, UseDmd(..), Count,
 
         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