From 8ccc215293a0eab15681371b1be6d23cb68f68d3 Mon Sep 17 00:00:00 2001 From: David Waern Date: Wed, 9 Sep 2009 23:18:03 +0000 Subject: Remove commented-out code --- src/Haddock/Interface.hs | 31 ------------------------------- 1 file changed, 31 deletions(-) diff --git a/src/Haddock/Interface.hs b/src/Haddock/Interface.hs index 7ba2467e..13e15871 100644 --- a/src/Haddock/Interface.hs +++ b/src/Haddock/Interface.hs @@ -108,37 +108,6 @@ createInterfaces' verbosity modules flags instIfaceMap = do ) ([], Map.empty) orderedMods return (reverse ifaces) -{- liftIO $ do - putStrLn . ppModInfo $ ifaceInfo interface - putStrLn . show $ fmap pretty (ifaceDoc interface) - print (ifaceOptions interface) - mapM (putStrLn . pretty . fst) (Map.elems . ifaceDeclMap $ interface) - mapM (putStrLn . show . fmap pretty . snd) (Map.elems . ifaceDeclMap $ interface) - mapM (putStrLn . ppExportItem) (ifaceExportItems interface) - mapM (putStrLn . pretty) (ifaceLocals interface) - mapM (putStrLn . pretty) (ifaceExports interface) - mapM (putStrLn . pretty) (ifaceVisibleExports interface) - mapM (putStrLn . pretty) (ifaceInstances interface) - mapM (\(a,b) -> putStrLn $ pretty a ++ pretty b) (Map.toList $ ifaceSubMap interface) - mapM (putStrLn . pretty) (ifaceInstances interface)-} - -{- - -ppInsts = concatMap ppInst - -ppInst (a,b,c) = concatMap pretty a ++ pretty b ++ concatMap pretty c - - -ppExportItem (ExportDecl decl (Just doc) insts) = pretty decl ++ pretty doc ++ ppInsts insts -ppExportItem (ExportDecl decl Nothing insts) = pretty decl ++ ppInsts insts -ppExportItem (ExportNoDecl name name2 names) = pretty name ++ pretty name2 ++ pretty names -ppExportItem (ExportGroup level id doc) = show level ++ show id ++ pretty doc -ppExportItem (ExportDoc doc) = pretty doc -ppExportItem (ExportModule mod) = pretty mod - - -ppModInfo (HaddockModInfo a b c d) = show (fmap pretty a) ++ show b ++ show c ++ show d --} processModule :: Verbosity -> ModSummary -> [Flag] -> ModuleMap -> InstIfaceMap -> Ghc (Maybe Interface) processModule verbosity modsum flags modMap instIfaceMap = do -- cgit v1.2.3