X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=compiler%2FcoreSyn%2FCoreLint.lhs;h=e903c6a39cf8b1c81edf04efff2fe4b6c0db58ab;hb=b4229ab662b6d87b1477bafa85d2db46e5a9a152;hp=421f3b0afd81e0c65f74eeb2ab19edff692db658;hpb=aed0554eb789d949b196230a9d25c38e2c6e14d9;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