diff options
Diffstat (limited to 'src/Haddock/Interface/Create.hs')
| -rw-r--r-- | src/Haddock/Interface/Create.hs | 8 |
1 files changed, 1 insertions, 7 deletions
diff --git a/src/Haddock/Interface/Create.hs b/src/Haddock/Interface/Create.hs index 3dee5d6a..e2180f6d 100644 --- a/src/Haddock/Interface/Create.hs +++ b/src/Haddock/Interface/Create.hs @@ -289,7 +289,6 @@ filterClasses decls = [ if isClassD d then (L loc (filterClass d), doc) else x collectDocs :: [Decl] -> [(Decl, (Maybe Doc))] collectDocs decls = collect Nothing DocEmpty decls - collect :: Maybe Decl -> Doc -> [Decl] -> [(Decl, (Maybe Doc))] collect d doc_so_far [] = case d of @@ -307,9 +306,7 @@ collect d doc_so_far (e:es) = _ -> case d of Nothing -> collect (Just e) doc_so_far es - Just d0 - | sameDecl d0 e -> collect d doc_so_far es - | otherwise -> finishedDoc d0 doc_so_far (collect (Just e) DocEmpty es) + Just d0 -> finishedDoc d0 doc_so_far (collect (Just e) DocEmpty es) finishedDoc :: Decl -> Doc -> [(Decl, (Maybe Doc))] -> [(Decl, (Maybe Doc))] @@ -321,9 +318,6 @@ finishedDoc d doc rest | notDocDecl d = (d, Just doc) : rest finishedDoc _ _ rest = rest -sameDecl d1 d2 = getLoc d1 == getLoc d2 - - {- attachATs :: [IE Name] -> ([IE Name], [Name]) attachATs exports = |