[commit: ghc] cardinality: Wibble (9b1c369)

[Simon Peyton Jones]

Repository : http://darcs.haskell.org/ghc.git/

On branch  : cardinality

http://hackage.haskell.org/trac/ghc/changeset/9b1c369499d7cf230868e9121dfd9fb4cceb5831

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

commit 9b1c369499d7cf230868e9121dfd9fb4cceb5831
Author: Simon Peyton Jones <simonpj at microsoft.com>
Date:   Wed Mar 13 13:56:23 2013 +0000

    Wibble

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

 compiler/basicTypes/Demand.lhs | 7 -------
 1 file changed, 7 deletions(-)

diff --git a/compiler/basicTypes/Demand.lhs b/compiler/basicTypes/Demand.lhs
index 6ee45cf..7928729 100644
--- a/compiler/basicTypes/Demand.lhs
+++ b/compiler/basicTypes/Demand.lhs
@@ -464,13 +464,6 @@ isAbsDmd :: JointDmd -> Bool
 isAbsDmd (JD {absd = Abs})  = True   -- The strictness part can be HyperStr 
 isAbsDmd _                  = False  -- for a bottom demand
 
-isStrictDmd :: JointDmd -> Bool
-isStrictDmd jd = not (isLazyDmd jd)
-
-isLazyDmd :: JointDmd -> Bool
-isLazyDmd (JD {strd = Lazy}) = True
-isLazyDmd _ = False
-
 isSeqDmd :: JointDmd -> Bool
 isSeqDmd (JD {strd=Str HeadStr, absd=Use _ UHead}) = True
 isSeqDmd _                                         = False