diff options
| author | Joachim Breitner <mail@joachim-breitner.de> | 2016-05-02 12:34:25 +0200 |
|---|---|---|
| committer | Joachim Breitner <mail@joachim-breitner.de> | 2016-06-17 10:39:10 +0200 |
| commit | a7f65b8787b0521397ee09061394425aa69bc6e0 (patch) | |
| tree | f9d075f232cee242a5b4014ac686b02897c317a4 /compiler | |
| parent | 930a525a5906fdd65ab0c3e804085d5875517a20 (diff) | |
| download | haskell-a7f65b8787b0521397ee09061394425aa69bc6e0.tar.gz | |
Remove dead code: countOnce, countMany
and export Count abstractly (the constructors are not used anywhere).
Diffstat (limited to 'compiler')
| -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 |