From 55f57bc4a265e6eeb6d06554834f5332cadc98b8 Mon Sep 17 00:00:00 2001
From: David Waern <david.waern@gmail.com>
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