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(-)
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