From 6dc0ea4e4a7ef7875d29aefc745cc539a9539c10 Mon Sep 17 00:00:00 2001
From: David Waern <david.waern@gmail.com>
Date: Tue, 4 Nov 2008 23:20:17 +0000
Subject: Follow change to ExportDecl in frames code

---
 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 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
-- 
cgit v1.2.3