aboutsummaryrefslogtreecommitdiff
path: root/src/Main.hs
diff options
context:
space:
mode:
Diffstat (limited to 'src/Main.hs')
-rw-r--r--src/Main.hs7
1 files changed, 1 insertions, 6 deletions
diff --git a/src/Main.hs b/src/Main.hs
index 3bbcf3a0..48a78d46 100644
--- a/src/Main.hs
+++ b/src/Main.hs
@@ -676,12 +676,7 @@ updateHTMLXRefs packages = writeIORef html_xrefs_ref (Map.fromList mapping)
where
mapping = [ (mod, html) |
(PackageData _ mods html) <- packages, (mod, _) <- mods ]
-{-
-updateHTMLXRefs :: [FilePath] -> [[Module]] -> IO ()
-updateHTMLXRefs paths modss = writeIORef html_xrefs_ref (Map.fromList mapping)
- where
- mapping = [ (mod, fpath) | (fpath, mods) <- zip paths modss, mod <- mods ]
--}
+
getPrologue :: [Flag] -> IO (Maybe (HsDoc RdrName))
getPrologue flags
= case [filename | Flag_Prologue filename <- flags ] of