From: panne <unknown>
Date: Mon, 30 Apr 2001 13:50:59 +0000 (+0000)
Subject: [project @ 2001-04-30 13:50:59 by panne]
X-Git-Tag: Approximately_9120_patches~2053
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=c66b73ecd483f56e9089d3eda814aef35b1ba216;p=ghc-hetmet.git

[project @ 2001-04-30 13:50:59 by panne]
o=>O:-)
---

diff --git a/ghc/compiler/rename/RnNames.lhs b/ghc/compiler/rename/RnNames.lhs
index 92712b1..a54dbd8 100644
--- a/ghc/compiler/rename/RnNames.lhs
+++ b/ghc/compiler/rename/RnNames.lhs
@@ -324,7 +324,7 @@ filterImports mod from (Just (want_hiding, import_items)) total_avails
 	  Just avail@(AvailTC _ [n]) -> 	-- This occurs when you import T(..), but
 						-- only export T abstractly.  The single [n]
 						-- in the AvailTC is the type or class itself
-					ifOptRn opt_WarnMisc (addWarnRn (dodgyImportWarn mod item))	`thenRn_`
+					ifOptRn Opt_WarnMisc (addWarnRn (dodgyImportWarn mod item))	`thenRn_`
 		     	 		returnRn [(avail, [availName avail])]
 	  Just avail 		     -> returnRn [(avail, [availName avail])]