From 46facf59de95110544eed3a62d18c1327a0c479f Mon Sep 17 00:00:00 2001
From: Neil Mitchell <unknown>
Date: Wed, 13 Aug 2008 14:03:46 +0000
Subject: Make Hoogle add documentation to a package

---
 src/Haddock/Backends/Hoogle.hs | 5 +++--
 src/Main.hs                    | 2 +-
 2 files changed, 4 insertions(+), 3 deletions(-)

diff --git a/src/Haddock/Backends/Hoogle.hs b/src/Haddock/Backends/Hoogle.hs
index 7d81fbab..c8336352 100644
--- a/src/Haddock/Backends/Hoogle.hs
+++ b/src/Haddock/Backends/Hoogle.hs
@@ -37,10 +37,11 @@ prefix = ["-- Hoogle documentation, generated by Haddock"
          ,""]
 
 
-ppHoogle :: String -> String -> [Interface] -> FilePath -> IO ()
-ppHoogle package version ifaces odir = do
+ppHoogle :: String -> String -> String -> Maybe (HsDoc RdrName) -> [Interface] -> FilePath -> IO ()
+ppHoogle package version synopsis prologue ifaces odir = do
     let filename = package <.> "txt"
         contents = prefix ++
+                   docWith (drop 2 $ dropWhile (/= ':') synopsis) prologue ++
                    ["@package " ++ package] ++
                    ["@version " ++ version | version /= ""] ++
                    concat [ppModule i | i <- ifaces, OptHide `notElem` ifaceOptions i]
diff --git a/src/Main.hs b/src/Main.hs
index 6fc1a6cd..f9820243 100644
--- a/src/Main.hs
+++ b/src/Main.hs
@@ -258,7 +258,7 @@ render flags interfaces installedIfaces = do
     copyHtmlBits odir libdir css_file
 
   when (Flag_Hoogle `elem` flags) $ do
-    ppHoogle pkgName pkgVer visibleIfaces odir
+    ppHoogle pkgName pkgVer title prologue visibleIfaces odir
 
 -------------------------------------------------------------------------------
 -- Reading and dumping interface files
-- 
cgit v1.2.3