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/HaddockRename.hs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'src/HaddockRename.hs')

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