From 55f57bc4a265e6eeb6d06554834f5332cadc98b8 Mon Sep 17 00:00:00 2001 From: David Waern Date: Sun, 15 Nov 2009 12:32:21 +0000 Subject: Remove commented-out code --- src/Haddock/Interface/Create.hs | 8 -------- 1 file changed, 8 deletions(-) (limited to 'src/Haddock') diff --git a/src/Haddock/Interface/Create.hs b/src/Haddock/Interface/Create.hs index 7a1d6d25..f1023825 100644 --- a/src/Haddock/Interface/Create.hs +++ b/src/Haddock/Interface/Create.hs @@ -393,14 +393,6 @@ finishedDoc :: Decl -> MaybeDocStringsFast -> [(Decl, MaybeDocStrings)] -> [(Dec finishedDoc d doc rest = (d, docStringToList doc) : rest -{- -attachATs :: [IE Name] -> ([IE Name], [Name]) -attachATs exports = - where - ats = <- export ] --} - - -- | Build the list of items that will become the documentation, from the -- export list. At this point, the list of ExportItems is in terms of -- original names. -- cgit v1.2.3