[project @ 2000-03-01 18:10:43 by lewie]

[ghc-hetmet.git] / ghc / compiler / typecheck / TcImprove.lhs

diff --git a/ghc/compiler/typecheck/TcImprove.lhs b/ghc/compiler/typecheck/TcImprove.lhs
index dfe35dd..1451d44 100644 (file)
--- a/ghc/compiler/typecheck/TcImprove.lhs
+++ b/ghc/compiler/typecheck/TcImprove.lhs
@@ -25,7 +25,7 @@ import List           ( elemIndex, nub )
 
 \begin{code}
 tcImprove lie =
-    if null cfdss then
+    if null nfdss then
        returnTc ()
     else
        -- zonkCfdss cfdss `thenTc` \ cfdss' ->