diff options
| -rw-r--r-- | src/HaddockUtil.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/HaddockUtil.hs b/src/HaddockUtil.hs index ae246553..be4b2d88 100644 --- a/src/HaddockUtil.hs +++ b/src/HaddockUtil.hs @@ -52,7 +52,7 @@ declBinders d = case d of HsTypeDecl _ n _ _ -> [n] HsDataDecl _ _ n _ cons _ -> n : concat (map conDeclBinders cons) - HsNewTypeDecl _ _ n _ _ _ -> [n] + HsNewTypeDecl _ _ n _ con _ -> n : conDeclBinders con HsClassDecl _ qt _ decls -> exQtNm qt : collectNames decls HsTypeSig _ ns _ -> ns HsForeignImport _ _ _ _ n _ -> [n] |