diff options
Diffstat (limited to 'src/HaddockHtml.hs')
| -rw-r--r-- | src/HaddockHtml.hs | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/src/HaddockHtml.hs b/src/HaddockHtml.hs index 3e7debaa..e0c7121b 100644 --- a/src/HaddockHtml.hs +++ b/src/HaddockHtml.hs @@ -812,7 +812,8 @@ ppClassDecl summary links instances orig_c loc mbDoc docMap s8 </> methHdr </> tda [theclass "body"] << vanillaTable << ( abovesSep s8 [ ppSig summary links loc mbDoc sig - | L _ sig@(TypeSig (L _ (NoLink n)) t) <- lsigs, let mbDoc = Map.lookup n docMap ] + | L _ sig@(TypeSig n _) <- lsigs, + let mbDoc = Map.lookup (orig n) docMap ] ) instId = collapseId nm |