From db23f65e1d2a82ac7d86c055cac66b35a3f68940 Mon Sep 17 00:00:00 2001 From: simonmar Date: Wed, 8 May 2002 14:48:41 +0000 Subject: [haddock @ 2002-05-08 14:48:39 by simonmar] Add support for existential quantifiers on constructors. --- src/HaddockUtil.hs | 9 +++++---- 1 file changed, 5 insertions(+), 4 deletions(-) (limited to 'src/HaddockUtil.hs') diff --git a/src/HaddockUtil.hs b/src/HaddockUtil.hs index be4b2d88..ef209f98 100644 --- a/src/HaddockUtil.hs +++ b/src/HaddockUtil.hs @@ -58,8 +58,9 @@ declBinders d = HsForeignImport _ _ _ _ n _ -> [n] _ -> [] -conDeclBinders (HsConDecl _ n _ _) = [n] -conDeclBinders (HsRecDecl _ n fields _) = n : concat (map fieldDeclBinders fields) +conDeclBinders (HsConDecl _ n _ _ _ _) = [n] +conDeclBinders (HsRecDecl _ n _ _ fields _) = + n : concat (map fieldDeclBinders fields) fieldDeclBinders (HsFieldDecl ns _ _) = ns @@ -89,8 +90,8 @@ restrictTo names decl = case decl of restrictCons :: [HsName] -> [HsConDecl] -> [HsConDecl] restrictCons names decls = filter keep decls - where keep (HsConDecl _ n _ _) = n `elem` names - keep (HsRecDecl _ n _ _) = n `elem` names + where keep (HsConDecl _ n _ _ _ _) = n `elem` names + keep (HsRecDecl _ n _ _ _ _) = n `elem` names -- ToDo: records not right restrictDecls :: [HsName] -> [HsDecl] -> [HsDecl] -- cgit v1.2.3