diff options
| author | Simon Peyton Jones <simonpj@microsoft.com> | 2015-10-31 19:08:13 +0000 |
|---|---|---|
| committer | Matthew Pickering <matthewtpickering@gmail.com> | 2015-12-14 15:40:18 +0000 |
| commit | 3fd2ed3213778c090ed5e27bd8a9e5bdee5c5135 (patch) | |
| tree | 546bb69fc3fc0bff8df661a1fe8602aeeb86b5c4 /haddock-api/src/Haddock/Backends/Xhtml.hs | |
| parent | 0b4e5424d1df869cc6eb4bc439c7988f36eeaab4 (diff) | |
More adaption to wildcard-refactor
Diffstat (limited to 'haddock-api/src/Haddock/Backends/Xhtml.hs')
| -rw-r--r-- | haddock-api/src/Haddock/Backends/Xhtml.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/haddock-api/src/Haddock/Backends/Xhtml.hs b/haddock-api/src/Haddock/Backends/Xhtml.hs index a1e4f94d..1554a33c 100644 --- a/haddock-api/src/Haddock/Backends/Xhtml.hs +++ b/haddock-api/src/Haddock/Backends/Xhtml.hs @@ -583,7 +583,7 @@ processForMiniSynopsis mdl unicode qual ExportDecl { expItemDecl = L _loc decl0 (DataDecl{}) -> [keyword "data" <+> b] (SynDecl{}) -> [keyword "type" <+> b] (ClassDecl {}) -> [keyword "class" <+> b] - SigD (TypeSig lnames (L _ _) _) -> + SigD (TypeSig lnames _) -> map (ppNameMini Prefix mdl . nameOccName . getName . unLoc) lnames _ -> [] processForMiniSynopsis _ _ qual (ExportGroup lvl _id txt) = |