Make Hoogle add documentation to a package

1 files changed, 3 insertions, 2 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]