diff --git a/ghc/compiler/deSugar/Desugar.lhs b/ghc/compiler/deSugar/Desugar.lhs
index cf07923d74d46b325bc246dba492573187a6ea55..14db54b456626bb1582bd41fe2a89bbea1cbbf7b 100644
--- a/ghc/compiler/deSugar/Desugar.lhs
+++ b/ghc/compiler/deSugar/Desugar.lhs
@@ -9,8 +9,6 @@
 module Desugar ( deSugar, pprDsWarnings
 #if __GLASGOW_HASKELL__ < 200
 		, DsMatchContext
-	        , DsWarnFlavour -- fluff needed for closure, 
-				 -- removed when compiling with 1.4
 #endif
 	       ) where
 
diff --git a/ghc/compiler/main/Main.lhs b/ghc/compiler/main/Main.lhs
index 839e965151f064e29f3039d505839e92b229f479..239ccb8207eceef9f34a2309e728009903c885e7 100644
--- a/ghc/compiler/main/Main.lhs
+++ b/ghc/compiler/main/Main.lhs
@@ -23,7 +23,7 @@ import MkIface		-- several functions
 import TcModule		( typecheckModule )
 import Desugar		( deSugar, pprDsWarnings
 #if __GLASGOW_HASKELL__ <= 200
-		          , DsMatchContext, DsWarnFlavour 
+		          , DsMatchContext 
 #endif
 			)
 import SimplCore	( core2core )