diff options
| author | David Waern <david.waern@gmail.com> | 2008-11-04 23:20:17 +0000 |
|---|---|---|
| committer | David Waern <david.waern@gmail.com> | 2008-11-04 23:20:17 +0000 |
| commit | 6dc0ea4e4a7ef7875d29aefc745cc539a9539c10 (patch) | |
| tree | 1e42961bc1f832cdbb2699db8d8d60397df7167f /src | |
| parent | 9a55030410de644cb99e127f4eef2da6692836b6 (diff) | |
Follow change to ExportDecl in frames code
Diffstat (limited to 'src')
| -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 f44b6fb6..a89a9b20 100644 --- a/src/Haddock/Backends/Html.hs +++ b/src/Haddock/Backends/Html.hs @@ -656,7 +656,7 @@ miniSynopsis mod iface = exports = numberSectionHeadings (ifaceRnExportItems iface) processForMiniSynopsis :: Module -> ExportItem DocName -> Html -processForMiniSynopsis mod (ExportDecl (L _loc decl0) _doc _insts) = +processForMiniSynopsis mod (ExportDecl (L _loc decl0) _doc _ _insts) = thediv ! [theclass "decl" ] << case decl0 of TyClD d@(TyFamily{}) -> ppTyFamHeader True False d |