From 47ec4e22e31e0531f2d412e754fd66eb4f7ba34f Mon Sep 17 00:00:00 2001 From: Neil Mitchell Date: Mon, 16 Jun 2008 06:53:29 +0000 Subject: Change packageName to packageStr, as it better reflects the information stored in it --- src/Main.hs | 12 ++++++------ 1 file changed, 6 insertions(+), 6 deletions(-) (limited to 'src') diff --git a/src/Main.hs b/src/Main.hs index a5381aff..48c92a73 100644 --- a/src/Main.hs +++ b/src/Main.hs @@ -203,32 +203,32 @@ render flags interfaces installedIfaces = do allVisibleIfaces = map toInstalledIface visibleIfaces ++ installedIfaces - packageName = (Just . modulePkgStr . ifaceMod . head) visibleIfaces + packageStr = (Just . modulePkgStr . ifaceMod . head) visibleIfaces when (Flag_GenIndex `elem` flags) $ do - ppHtmlIndex odir title packageName maybe_html_help_format + ppHtmlIndex odir title packageStr maybe_html_help_format maybe_contents_url maybe_source_urls maybe_wiki_urls allVisibleIfaces copyHtmlBits odir libdir css_file when (Flag_GenContents `elem` flags && Flag_GenIndex `elem` flags) $ do - ppHtmlHelpFiles title packageName visibleIfaces odir maybe_html_help_format [] + ppHtmlHelpFiles title packageStr visibleIfaces odir maybe_html_help_format [] when (Flag_GenContents `elem` flags) $ do - ppHtmlContents odir title packageName maybe_html_help_format + ppHtmlContents odir title packageStr maybe_html_help_format maybe_index_url maybe_source_urls maybe_wiki_urls allVisibleIfaces True prologue copyHtmlBits odir libdir css_file when (Flag_Html `elem` flags) $ do - ppHtml title packageName visibleIfaces odir + ppHtml title packageStr visibleIfaces odir prologue maybe_html_help_format maybe_source_urls maybe_wiki_urls maybe_contents_url maybe_index_url copyHtmlBits odir libdir css_file when (Flag_Hoogle `elem` flags) $ do - ppHoogle packageName visibleIfaces odir + ppHoogle packageStr visibleIfaces odir ------------------------------------------------------------------------------- -- Reading and dumping interface files -- cgit v1.2.3