From c0a56f6b01304105eb272e27e8ab890ba4f4be93 Mon Sep 17 00:00:00 2001
From: Neil Mitchell <unknown>
Date: Thu, 18 Dec 2008 15:39:39 +0000
Subject: Try and find a better package name than "main" for Hoogle, goes wrong
 when working on an executable rather than a library

---
 src/Main.hs | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

(limited to 'src/Main.hs')

diff --git a/src/Main.hs b/src/Main.hs
index 8f3895bd..686e9237 100644
--- a/src/Main.hs
+++ b/src/Main.hs
@@ -301,7 +301,8 @@ render flags ifaces installedIfaces = do
     copyHtmlBits odir libdir css_file
 
   when (Flag_Hoogle `elem` flags) $ do
-    ppHoogle pkgName pkgVer title prologue visibleIfaces odir
+    let pkgName2 = if pkgName == "main" && title /= [] then title else pkgName
+    ppHoogle pkgName2 pkgVer title prologue visibleIfaces odir
 
 
 -------------------------------------------------------------------------------
-- 
cgit v1.2.3