aboutsummaryrefslogtreecommitdiff
path: root/src/Haddock/Interface
diff options
context:
space:
mode:
authorDavid Waern <david.waern@gmail.com>2009-02-27 22:08:08 +0000
committerDavid Waern <david.waern@gmail.com>2009-02-27 22:08:08 +0000
commit77f31758cd65a79c8749f070d0c562e7be8a139f (patch)
tree8913dd0949ddd2a42204a11da4dcb36d2aaef559 /src/Haddock/Interface
parentf223e6a93505fd439d42b276fa47cc49acd33704 (diff)
Fix error message conflict
The module name is already written in the beginning of the message, as seems to be the convention in Haddock. Perhaps not so clear, but we should change it everywhere in that case. Leaving it as it is for now.
Diffstat (limited to 'src/Haddock/Interface')
-rw-r--r--src/Haddock/Interface/Create.hs9
1 files changed, 4 insertions, 5 deletions
diff --git a/src/Haddock/Interface/Create.hs b/src/Haddock/Interface/Create.hs
index 140d5358..d3f408fa 100644
--- a/src/Haddock/Interface/Create.hs
+++ b/src/Haddock/Interface/Create.hs
@@ -395,11 +395,10 @@ mkExportItems modMap this_mod exported_names decls declMap
Just p <- find isExported (parents t $ unL decl) ->
do tell [
"Warning: " ++ moduleString this_mod ++ ": " ++
- pretty (nameOccName t) ++ " is listed separately in " ++
- "the export list, but " ++
- "will be documented under its parent. " ++
- "Consider exporting it through the parent "++
- "export item only, for code clarity." ]
+ pretty (nameOccName t) ++ " is exported separately but " ++
+ "will be documented under " ++ pretty (nameOccName p) ++
+ ". Consider exporting it together with its parent(s)" ++
+ " for code clarity." ]
return []
-- normal case