From 31c53d79c85274012725480b8d78d341f3affe06 Mon Sep 17 00:00:00 2001
From: simonmar <unknown>
Date: Fri, 26 Apr 2002 11:18:57 +0000
Subject: [haddock @ 2002-04-26 11:18:56 by simonmar] - support for fundeps
 (partially contributed by Brett Letner - thanks   Brett).

- make it build with GHC 4.08.2
---
 src/HaddockDB.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'src/HaddockDB.hs')

diff --git a/src/HaddockDB.hs b/src/HaddockDB.hs
index 446bce1d..80bc1b7c 100644
--- a/src/HaddockDB.hs
+++ b/src/HaddockDB.hs
@@ -70,7 +70,7 @@ ppIfaces mods
 	        ++ map ppHsName args)
             <+> vcat (zipWith (<+>) (equals : repeat (char '|'))
                                     (map ppHsConstr cons))
-     do_decl (HsClassDecl loc ty decl)
+     do_decl (HsClassDecl loc ty fds decl)
 	= hsep [text "class", ppHsType ty]
      do_decl decl
 	= empty
-- 
cgit v1.2.3