[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

1 files changed, 2 insertions, 2 deletions

diff --git a/src/HaddockRename.hs b/src/HaddockRename.hs
index 9dfa7147..ce954a52 100644
--- a/src/HaddockRename.hs
+++ b/src/HaddockRename.hs
@@ -85,10 +85,10 @@ renameDecl decl
         HsNewTypeDecl loc ctx t args con drv -> do
 	    con <- renameConDecl con
 	    return (HsNewTypeDecl loc ctx t args con drv)
-        HsClassDecl loc qt decls -> do
+        HsClassDecl loc qt fds decls -> do
 	    qt <- renameClassHead qt
 	    decls <- mapM renameDecl decls
-	    return (HsClassDecl loc qt decls)
+	    return (HsClassDecl loc qt fds decls)
 	HsTypeSig loc fs qt -> do
 	    qt <- renameType qt
 	    return (HsTypeSig loc fs qt)