From 0c680c0457c8e4a68f0908483095ca4db9797c72 Mon Sep 17 00:00:00 2001 From: simonmar 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(-) 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