diff options
Diffstat (limited to 'src')
| -rw-r--r-- | src/Haddock/Backends/Xhtml.hs | 36 | 
1 files changed, 18 insertions, 18 deletions
diff --git a/src/Haddock/Backends/Xhtml.hs b/src/Haddock/Backends/Xhtml.hs index 95d35217..5776111e 100644 --- a/src/Haddock/Backends/Xhtml.hs +++ b/src/Haddock/Backends/Xhtml.hs @@ -60,18 +60,18 @@ import Module  -- -----------------------------------------------------------------------------  -- Generating HTML documentation -ppHtml  :: String -        -> Maybe String                         -- package -        -> [Interface] -        -> FilePath                     -- destination directory -        -> Maybe (Doc GHC.RdrName)    -- prologue text, maybe -        -> Maybe String                 -- the Html Help format (--html-help) -        -> SourceURLs                   -- the source URL (--source) -        -> WikiURLs                     -- the wiki URL (--wiki) -        -> Maybe String                 -- the contents URL (--use-contents) -        -> Maybe String                 -- the index URL (--use-index) -        -> Bool                         -- whether to use unicode in output (--use-unicode) -        -> IO () +ppHtml :: String +       -> Maybe String                 -- package +       -> [Interface] +       -> FilePath                     -- destination directory +       -> Maybe (Doc GHC.RdrName)      -- prologue text, maybe +       -> Maybe String                 -- the Html Help format (--html-help) +       -> SourceURLs                   -- the source URL (--source) +       -> WikiURLs                     -- the wiki URL (--wiki) +       -> Maybe String                 -- the contents URL (--use-contents) +       -> Maybe String                 -- the index URL (--use-index) +       -> Bool                         -- whether to use unicode in output (--use-unicode) +       -> IO ()  ppHtml doctitle maybe_package ifaces odir prologue maybe_html_help_format          maybe_source_url maybe_wiki_url @@ -100,12 +100,12 @@ ppHtml doctitle maybe_package ifaces odir prologue maybe_html_help_format  ppHtmlHelpFiles      :: String                   -- doctitle -    -> Maybe String                             -- package -        -> [Interface] -        -> FilePath                 -- destination directory -        -> Maybe String             -- the Html Help format (--html-help) -        -> [FilePath]               -- external packages paths -        -> IO () +    -> Maybe String             -- package +    -> [Interface] +    -> FilePath                 -- destination directory +    -> Maybe String             -- the Html Help format (--html-help) +    -> [FilePath]               -- external packages paths +    -> IO ()  ppHtmlHelpFiles doctitle maybe_package ifaces odir maybe_html_help_format pkg_paths =  do    let          visible_ifaces = filter visible ifaces  | 
