diff options
| author | David Waern <david.waern@gmail.com> | 2009-02-27 22:08:08 +0000 |
|---|---|---|
| committer | David Waern <david.waern@gmail.com> | 2009-02-27 22:08:08 +0000 |
| commit | 77f31758cd65a79c8749f070d0c562e7be8a139f (patch) | |
| tree | 8913dd0949ddd2a42204a11da4dcb36d2aaef559 /src/Haddock/Interface | |
| parent | f223e6a93505fd439d42b276fa47cc49acd33704 (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.hs | 9 |
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 |