From 6eb17425fe47b70ed9d70f6d065da9c7699ac5f3 Mon Sep 17 00:00:00 2001 From: David Waern Date: Sat, 8 Dec 2007 17:59:28 +0000 Subject: Fix a bug (use ppTyName instead of ppName to print names in type apps) --- src/Haddock/Backends/Html.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'src') 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 -- cgit v1.2.3