aboutsummaryrefslogtreecommitdiff
path: root/src
diff options
context:
space:
mode:
authorDavid Waern <david.waern@gmail.com>2009-09-09 23:18:03 +0000
committerDavid Waern <david.waern@gmail.com>2009-09-09 23:18:03 +0000
commit8ccc215293a0eab15681371b1be6d23cb68f68d3 (patch)
tree25cb2338701ae0221c7f8748e7ed7ae7e27dc7a7 /src
parentb31434e9bafff7e44afa4737cb471b9ee86eb500 (diff)
Remove commented-out code
Diffstat (limited to 'src')
-rw-r--r--src/Haddock/Interface.hs31
1 files changed, 0 insertions, 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