From fe9b10f8c0758645c680b339b8cc26bfb25697e8 Mon Sep 17 00:00:00 2001
From: simonmar <unknown>
Date: Thu, 11 Apr 2002 13:40:31 +0000
Subject: [haddock @ 2002-04-11 13:40:30 by simonmar] - copy haddock.css into
 the same place as the generated HTML

- new option: --css <file>  specifies the style sheet to use

- new option:  -o <dir>  specifies the directory in which to
  generate the output.

- because Haddock now needs to know where to find its default stylesheet,
  we have to have a wrapper script and do the haddock-inplace thing
  (Makefile code copied largely from fptools/happy).
---
 src/HaddockDB.hs | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

(limited to 'src/HaddockDB.hs')

diff --git a/src/HaddockDB.hs b/src/HaddockDB.hs
index 1edd90fd..446bce1d 100644
--- a/src/HaddockDB.hs
+++ b/src/HaddockDB.hs
@@ -7,6 +7,8 @@
 module HaddockDB (ppDocBook) where
 
 import HaddockTypes hiding (Doc)
+import HaddockUtil
+
 import HsSyn
 import Pretty
 import FiniteMap
@@ -14,8 +16,8 @@ import FiniteMap
 -----------------------------------------------------------------------------
 -- Printing the results in DocBook format
 
-ppDocBook :: [(Module, Interface)] -> String
-ppDocBook mods = render (ppIfaces mods)
+ppDocBook :: FilePath -> [(Module, Interface)] -> String
+ppDocBook odir mods = render (ppIfaces mods)
 
 ppIfaces mods
   =  text "<!DOCTYPE BOOK PUBLIC \"-//OASIS//DTD DocBook V3.1//EN\" ["
-- 
cgit v1.2.3