From 0c680c0457c8e4a68f0908483095ca4db9797c72 Mon Sep 17 00:00:00 2001
From: simonmar <unknown>
Date: Fri, 4 Feb 2005 12:03:31 +0000
Subject: [haddock @ 2005-02-04 12:03:31 by simonmar] Fix bug in
 renameExportItems that meant links in instances weren't being renamed
 properly.

---
 src/HaddockRename.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'src')

diff --git a/src/HaddockRename.hs b/src/HaddockRename.hs
index 5199c013..aff9fbcd 100644
--- a/src/HaddockRename.hs
+++ b/src/HaddockRename.hs
@@ -275,7 +275,7 @@ renameExportItems items = mapM rn items
 	        return (ExportGroup lev id0 doc)
 	rn (ExportDecl x decl0 insts) -- x is an original name, don't rename it
 	   = do decl <- renameDecl decl0
-		mapM renameInstHead insts
+		insts <- mapM renameInstHead insts
 		return (ExportDecl x decl insts)
 	rn (ExportNoDecl x y subs)
 	   = do y' <- lookupRn id y
-- 
cgit v1.2.3