[project @ 1996-04-21 13:39:09 by partain]

[ghc-hetmet.git] / ghc / compiler / simplCore / SetLevels.lhs

diff --git a/ghc/compiler/simplCore/SetLevels.lhs b/ghc/compiler/simplCore/SetLevels.lhs
index 0605971..5e9fffc 100644 (file)
--- a/ghc/compiler/simplCore/SetLevels.lhs
+++ b/ghc/compiler/simplCore/SetLevels.lhs
@@ -49,7 +49,7 @@ import UniqSupply     ( thenUs, returnUs, mapUs, mapAndUnzipUs,
 import Usage           ( UVar(..) )
 import Util            ( mapAccumL, zipWithEqual, panic, assertPanic )
 
-isLeakFreeType = panic "SetLevels.isLeakFreeType (ToDo)"
+isLeakFreeType x y = False -- safe option; ToDo
 \end{code}
 
 %************************************************************************