From 657204d29967a492607e5035372fb66e062edeb0 Mon Sep 17 00:00:00 2001
From: simonmar <unknown>
Date: Mon, 27 May 2002 13:19:49 +0000
Subject: [haddock @ 2002-05-27 13:19:49 by simonmar] Fix bug: we weren't
 renaming HsDocCommentNamed in renameDecl

---
 src/HaddockRename.hs | 3 +++
 1 file changed, 3 insertions(+)

(limited to 'src/HaddockRename.hs')

diff --git a/src/HaddockRename.hs b/src/HaddockRename.hs
index d1bc5efa..a759178e 100644
--- a/src/HaddockRename.hs
+++ b/src/HaddockRename.hs
@@ -109,6 +109,9 @@ renameDecl decl
 	    ctxt <- mapM renamePred ctxt
 	    asst <- renamePred asst
 	    return (HsInstDecl loc ctxt asst decls)
+	HsDocCommentNamed loc name doc -> do
+	    doc <- renameDoc doc
+	    return (HsDocCommentNamed loc name doc)
 	_ -> 
 	    return decl
 
-- 
cgit v1.2.3