[project @ 2005-08-03 13:53:35 by simonmar]

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

diff --git a/ghc/compiler/coreSyn/CoreUtils.lhs b/ghc/compiler/coreSyn/CoreUtils.lhs
index d4948aa..d3cc3d7 100644 (file)
--- a/ghc/compiler/coreSyn/CoreUtils.lhs
+++ b/ghc/compiler/coreSyn/CoreUtils.lhs
@@ -11,7 +11,7 @@ module CoreUtils (
        mkIfThenElse, mkAltExpr, mkPiType, mkPiTypes,
 
        -- Taking expressions apart
-       findDefault, findAlt,
+       findDefault, findAlt, isDefaultAlt,
 
        -- Properties of expressions
        exprType, coreAltType,
@@ -300,6 +300,10 @@ findAlt con alts
          LT -> deflt   -- Missed it already; the alts are in increasing order
          EQ -> alt
          GT -> ASSERT( not (con1 == DEFAULT) ) go alts deflt
+
+isDefaultAlt :: CoreAlt -> Bool
+isDefaultAlt (DEFAULT, _, _) = True
+isDefaultAlt other          = False
 \end{code}