projects
/
ghc-hetmet.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
38bf652
)
[project @ 2001-04-30 13:50:59 by panne]
author
panne
<unknown>
Mon, 30 Apr 2001 13:50:59 +0000
(13:50 +0000)
committer
panne
<unknown>
Mon, 30 Apr 2001 13:50:59 +0000
(13:50 +0000)
o=>O:-)
ghc/compiler/rename/RnNames.lhs
patch
|
blob
|
history
diff --git
a/ghc/compiler/rename/RnNames.lhs
b/ghc/compiler/rename/RnNames.lhs
index
92712b1
..
a54dbd8
100644
(file)
--- 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
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])]
returnRn [(avail, [availName avail])]
Just avail -> returnRn [(avail, [availName avail])]