[haddock @ 2002-05-08 14:48:39 by simonmar]

Add support for existential quantifiers on constructors.

1 files changed, 5 insertions, 4 deletions

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]