diff options
| author | David Waern <david.waern@gmail.com> | 2011-12-07 02:16:33 +0100 |
|---|---|---|
| committer | David Waern <david.waern@gmail.com> | 2011-12-27 12:57:43 +0100 |
| commit | 60a043541e062ff6ceb52b0ab9e4f67d79dd3754 (patch) | |
| tree | d6fc920f6dfdb5002f4e1d7841dfb27e1e2023ab /src/Haddock/GhcUtils.hs | |
| parent | 1bf42a0c5b92fc142eeb7e540e5f5e12373edc99 (diff) | |
Go back to having a doc, sub and decl map instead of one big decl map.
This setup makes more sense since when we add value bindings to the
processed declarations (for type inference), we will have multiple
declarations which should share documentation. Also, we already have
a separate doc map for instances which we can now merge into the
main doc map. Another benefit is that we don't need the DeclInfo
type any longer.
Diffstat (limited to 'src/Haddock/GhcUtils.hs')
| -rw-r--r-- | src/Haddock/GhcUtils.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/Haddock/GhcUtils.hs b/src/Haddock/GhcUtils.hs index 989563b7..fc04351b 100644 --- a/src/Haddock/GhcUtils.hs +++ b/src/Haddock/GhcUtils.hs @@ -78,7 +78,7 @@ isVarSym = isLexVarSym . occNameFS getMainDeclBinder :: HsDecl name -> [name] -getMainDeclBinder (TyClD d) = [tcdName d] +getMainDeclBinder (TyClD d) | not (isFamInstDecl d) = [tcdName d] getMainDeclBinder (ValD d) = case collectHsBindBinders d of [] -> [] |