diff options
| author | simonmar <unknown> | 2005-02-04 12:03:31 +0000 |
|---|---|---|
| committer | simonmar <unknown> | 2005-02-04 12:03:31 +0000 |
| commit | 0c680c0457c8e4a68f0908483095ca4db9797c72 (patch) | |
| tree | e73306175e6466acaf6d80bd45bfe2aab99206d4 /src/HaddockRename.hs | |
| parent | 767123ef77a290d79246472bc38a515c57ad4c9b (diff) | |
[haddock @ 2005-02-04 12:03:31 by simonmar]
Fix bug in renameExportItems that meant links in instances weren't
being renamed properly.
Diffstat (limited to 'src/HaddockRename.hs')
| -rw-r--r-- | src/HaddockRename.hs | 2 |
1 files changed, 1 insertions, 1 deletions
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 |