diff options
| -rw-r--r-- | compiler/basicTypes/Demand.hs | 8 |
1 files changed, 1 insertions, 7 deletions
diff --git a/compiler/basicTypes/Demand.hs b/compiler/basicTypes/Demand.hs index 1ca65b01cc..4ae6812434 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 |