aboutsummaryrefslogtreecommitdiff
path: root/src/Haddock
diff options
context:
space:
mode:
authorDavid Waern <david.waern@gmail.com>2008-11-04 23:20:17 +0000
committerDavid Waern <david.waern@gmail.com>2008-11-04 23:20:17 +0000
commit6dc0ea4e4a7ef7875d29aefc745cc539a9539c10 (patch)
tree1e42961bc1f832cdbb2699db8d8d60397df7167f /src/Haddock
parent9a55030410de644cb99e127f4eef2da6692836b6 (diff)
Follow change to ExportDecl in frames code
Diffstat (limited to 'src/Haddock')
-rw-r--r--src/Haddock/Backends/Html.hs2
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