[project @ 1999-06-08 16:46:44 by simonpj]

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

diff --git a/ghc/compiler/coreSyn/CoreLint.lhs b/ghc/compiler/coreSyn/CoreLint.lhs
index ef38305..95d4118 100644 (file)
--- a/ghc/compiler/coreSyn/CoreLint.lhs
+++ b/ghc/compiler/coreSyn/CoreLint.lhs
@@ -379,6 +379,7 @@ checkAllCasesCovered e scrut_ty alts
     if isPrimTyCon tycon then
        checkL (hasDefault alts) (nonExhaustiveAltsMsg e)
     else
+{-             No longer needed
 #ifdef DEBUG
        -- Algebraic cases are not necessarily exhaustive, because
        -- the simplifer correctly eliminates case that can't 
@@ -398,6 +399,7 @@ checkAllCasesCovered e scrut_ty alts
                 nopL
     else
 #endif
+-}
     nopL }
 
 hasDefault []                    = False