[project @ 1999-05-18 15:03:33 by simonpj]

[ghc-hetmet.git] / ghc / compiler / basicTypes / Demand.lhs

diff --git a/ghc/compiler/basicTypes/Demand.lhs b/ghc/compiler/basicTypes/Demand.lhs
index f034216..7a4dbfe 100644 (file)
--- a/ghc/compiler/basicTypes/Demand.lhs
+++ b/ghc/compiler/basicTypes/Demand.lhs
@@ -8,7 +8,7 @@ module Demand(
        Demand(..),
 
        wwLazy, wwStrict, wwUnpackData, wwUnpackNew, wwPrim, wwEnum, 
-       isStrict, isLazy, 
+       isStrict, isLazy, isPrim,
 
        pprDemands
      ) where
@@ -80,6 +80,10 @@ isStrict WwStrict = True
 isStrict WwEnum          = True
 isStrict WwPrim          = True
 isStrict _       = False
+
+isPrim :: Demand -> Bool
+isPrim WwPrim = True
+isPrim other  = False
 \end{code}
 
 \begin{code}