From c66b73ecd483f56e9089d3eda814aef35b1ba216 Mon Sep 17 00:00:00 2001 From: panne Date: Mon, 30 Apr 2001 13:50:59 +0000 Subject: [PATCH] [project @ 2001-04-30 13:50:59 by panne] o=>O:-) --- ghc/compiler/rename/RnNames.lhs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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])] -- 1.7.10.4