diff options
Diffstat (limited to 'src/HaddockUtil.hs')
| -rw-r--r-- | src/HaddockUtil.hs | 9 |
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] |