X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=compiler%2FcoreSyn%2FCoreLint.lhs;h=e903c6a39cf8b1c81edf04efff2fe4b6c0db58ab;hb=6c3eae5d5e88117cf80b4b35c9bae4ba3ebbe94c;hp=421f3b0afd81e0c65f74eeb2ab19edff692db658;hpb=71bef58e5a49cc8cb50e823fcd774ab323124a17;p=ghc-hetmet.git

diff --git a/compiler/coreSyn/CoreLint.lhs b/compiler/coreSyn/CoreLint.lhs
index 421f3b0..e903c6a 100644
--- a/compiler/coreSyn/CoreLint.lhs
+++ b/compiler/coreSyn/CoreLint.lhs
@@ -10,7 +10,7 @@ A ``lint'' pass to check for Core correctness
 module CoreLint (
 	lintCoreBindings,
 	lintUnfolding, 
-	showPass, endPass, endIteration
+	showPass, endPass, endPassIf, endIteration
     ) where
 
 #include "HsVersions.h"
@@ -57,6 +57,9 @@ and do Core Lint when necessary.
 endPass :: DynFlags -> String -> DynFlag -> [CoreBind] -> IO [CoreBind]
 endPass = dumpAndLint dumpIfSet_core
 
+endPassIf :: Bool -> DynFlags -> String -> DynFlag -> [CoreBind] -> IO [CoreBind]
+endPassIf cond = dumpAndLint (dumpIf_core cond)
+
 endIteration :: DynFlags -> String -> DynFlag -> [CoreBind] -> IO [CoreBind]
 endIteration = dumpAndLint dumpIfSet_dyn