[project @ 1999-01-28 09:19:57 by simonpj]

[ghc-hetmet.git] / ghc / compiler / coreSyn / CoreUnfold.lhs

diff --git a/ghc/compiler/coreSyn/CoreUnfold.lhs b/ghc/compiler/coreSyn/CoreUnfold.lhs
index c2816f9..8a49dd5 100644 (file)
--- a/ghc/compiler/coreSyn/CoreUnfold.lhs
+++ b/ghc/compiler/coreSyn/CoreUnfold.lhs
@@ -19,7 +19,7 @@ module CoreUnfold (
        noUnfolding, mkMagicUnfolding, mkUnfolding, getUnfoldingTemplate,
        isEvaldUnfolding, hasUnfolding,
 
-       smallEnoughToInline, couldBeSmallEnoughToInline, 
+       smallEnoughToInline, unfoldAlways, couldBeSmallEnoughToInline, 
        certainlySmallEnoughToInline, 
        okToUnfoldInHiFile,
 
@@ -132,6 +132,10 @@ data UnfoldingGuidance
                        Int     -- Scrutinee discount: the discount to substract if the thing is in
                                -- a context (case (thing args) of ...),
                                -- (where there are the right number of arguments.)
+
+unfoldAlways :: UnfoldingGuidance -> Bool
+unfoldAlways UnfoldAlways = True
+unfoldAlways other       = False
 \end{code}
 
 \begin{code}