From b8a4cf53c2d468970a173ba226e57e48922b1295 Mon Sep 17 00:00:00 2001 From: davve Date: Fri, 15 Sep 2006 18:07:16 +0000 Subject: Remove commented-out code --- src/Main.hs | 7 +------ 1 file changed, 1 insertion(+), 6 deletions(-) (limited to 'src') 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 -- cgit v1.2.3