diff options
| author | Alex Biehl <alexbiehl@gmail.com> | 2017-06-29 19:54:49 +0200 |
|---|---|---|
| committer | GitHub <noreply@github.com> | 2017-06-29 19:54:49 +0200 |
| commit | af3e6c7c027389df18b15ee9a9d72ffc97dc1852 (patch) | |
| tree | 19b11d485df79c2bb4983bb5e0b8317c0743f48b /haddock-api/src/Haddock/Interface | |
| parent | 2d919a367139482cd76398ca1e90dff6f5427779 (diff) | |
Make per-argument docs for class methods work again (#648)
* Make per-argument docs for class methods work again
* Test case
Diffstat (limited to 'haddock-api/src/Haddock/Interface')
| -rw-r--r-- | haddock-api/src/Haddock/Interface/Create.hs | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/haddock-api/src/Haddock/Interface/Create.hs b/haddock-api/src/Haddock/Interface/Create.hs index 50643e2a..9227c378 100644 --- a/haddock-api/src/Haddock/Interface/Create.hs +++ b/haddock-api/src/Haddock/Interface/Create.hs @@ -429,8 +429,9 @@ typeDocs :: HsDecl Name -> Map Int HsDocString typeDocs d = let docs = go 0 in case d of - SigD (TypeSig _ ty) -> docs (unLoc (hsSigWcType ty)) - SigD (PatSynSig _ ty) -> docs (unLoc (hsSigType ty)) + SigD (TypeSig _ ty) -> docs (unLoc (hsSigWcType ty)) + SigD (ClassOpSig _ _ ty) -> docs (unLoc (hsSigType ty)) + SigD (PatSynSig _ ty) -> docs (unLoc (hsSigType ty)) ForD (ForeignImport _ ty _ _) -> docs (unLoc (hsSigType ty)) TyClD (SynDecl { tcdRhs = ty }) -> docs (unLoc ty) _ -> M.empty |