From 77f31758cd65a79c8749f070d0c562e7be8a139f Mon Sep 17 00:00:00 2001 From: David Waern Date: Fri, 27 Feb 2009 22:08:08 +0000 Subject: 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. --- src/Haddock/Interface/Create.hs | 9 ++++----- 1 file changed, 4 insertions(+), 5 deletions(-) (limited to 'src/Haddock/Interface') 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 -- cgit v1.2.3