diff options
| author | davve <davve@dtek.chalmers.se> | 2006-08-12 17:15:34 +0000 |
|---|---|---|
| committer | davve <davve@dtek.chalmers.se> | 2006-08-12 17:15:34 +0000 |
| commit | 3fb2208eddb9836d11655e44ad35adf158d2aa23 (patch) | |
| tree | ad5034438b54270bea8a7e4a4565cd18130a57cd /src/HaddockHtml.hs | |
| parent | a7351e86e9c7b8d7bda9259b70e1b0e57019a8a0 (diff) | |
Perfect rendering of Test.hs
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 |