diff options
| author | David Waern <davve@dtek.chalmers.se> | 2007-12-08 17:59:28 +0000 |
|---|---|---|
| committer | David Waern <davve@dtek.chalmers.se> | 2007-12-08 17:59:28 +0000 |
| commit | 6eb17425fe47b70ed9d70f6d065da9c7699ac5f3 (patch) | |
| tree | 86ddb2f7cc371bddaf08c2f0eb13dd1944496566 /src/Haddock/Backends/Html.hs | |
| parent | 689ec13473c62085346ef38baf3f70d2d7c94df0 (diff) | |
Fix a bug (use ppTyName instead of ppName to print names in type apps)
Diffstat (limited to 'src/Haddock/Backends/Html.hs')
| -rw-r--r-- | src/Haddock/Backends/Html.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/Haddock/Backends/Html.hs b/src/Haddock/Backends/Html.hs index 821d4ddf..bd709e30 100644 --- a/src/Haddock/Backends/Html.hs +++ b/src/Haddock/Backends/Html.hs @@ -762,7 +762,7 @@ ppAppNameTypes n ts = ppTypeApp n ts ppDocName ppParendType -- | Print an application of a DocName and a list of Names ppDataClassHead :: Bool -> DocName -> [Name] -> Html ppDataClassHead summ n ns = - ppTypeApp n ns (ppBinder summ . getName) ppName + ppTypeApp n ns (ppBinder summ . getName) ppTyName -- | General printing of type applications |