diff options
| author | simonmar <unknown> | 2002-04-26 11:18:57 +0000 |
|---|---|---|
| committer | simonmar <unknown> | 2002-04-26 11:18:57 +0000 |
| commit | 31c53d79c85274012725480b8d78d341f3affe06 (patch) | |
| tree | 6c005e5816372d8a6455713debe6b3f0290ecf8c /src/HaddockUtil.hs | |
| parent | bbd5fbab2ffebe759f20765a4dbd519b2d1381d8 (diff) | |
[haddock @ 2002-04-26 11:18:56 by simonmar]
- support for fundeps (partially contributed by Brett Letner - thanks
Brett).
- make it build with GHC 4.08.2
Diffstat (limited to 'src/HaddockUtil.hs')
| -rw-r--r-- | src/HaddockUtil.hs | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/src/HaddockUtil.hs b/src/HaddockUtil.hs index 8173cedf..ae246553 100644 --- a/src/HaddockUtil.hs +++ b/src/HaddockUtil.hs @@ -41,7 +41,7 @@ declMainBinder d = HsTypeDecl _ n _ _ -> Just n HsDataDecl _ _ n _ cons _ -> Just n HsNewTypeDecl _ _ n _ _ _ -> Just n - HsClassDecl _ qt decls -> Just (exQtNm qt) + HsClassDecl _ qt _ decls -> Just (exQtNm qt) HsTypeSig _ [n] _ -> Just n HsTypeSig _ ns _ -> error "declMainBinder" HsForeignImport _ _ _ _ n _ -> Just n @@ -53,7 +53,7 @@ declBinders d = HsTypeDecl _ n _ _ -> [n] HsDataDecl _ _ n _ cons _ -> n : concat (map conDeclBinders cons) HsNewTypeDecl _ _ n _ _ _ -> [n] - HsClassDecl _ qt decls -> exQtNm qt : collectNames decls + HsClassDecl _ qt _ decls -> exQtNm qt : collectNames decls HsTypeSig _ ns _ -> ns HsForeignImport _ _ _ _ n _ -> [n] _ -> [] @@ -83,8 +83,8 @@ restrictTo names decl = case decl of HsDataDecl loc ctxt n xs (restrictCons names cons) drv HsNewTypeDecl loc ctxt n xs con drv -> HsDataDecl loc ctxt n xs (restrictCons names [con]) drv - HsClassDecl loc qt decls -> - HsClassDecl loc qt (restrictDecls names decls) + HsClassDecl loc qt fds decls -> + HsClassDecl loc qt fds (restrictDecls names decls) _ -> decl restrictCons :: [HsName] -> [HsConDecl] -> [HsConDecl] |