aboutsummaryrefslogtreecommitdiff
path: root/src/HaddockRename.hs
diff options
context:
space:
mode:
authorsimonmar <unknown>2002-05-27 09:03:52 +0000
committersimonmar <unknown>2002-05-27 09:03:52 +0000
commita4e4c5f822416dbe2b8abe34301e8d3e39051bc1 (patch)
tree48743b04e3ebced1288b7ee51700f01fb4d02fa3 /src/HaddockRename.hs
parent01c2ddd27ae8776b03464d091d6dce989b7ee13f (diff)
[haddock @ 2002-05-27 09:03:51 by simonmar]
Lots of changes: - instances of a class are listed with the class, and instances involving a datatype are listed with that type. Derived instances aren't included at the moment: the calculation to find the instance head for a derived instance is non-trivial. - some formatting changes; use rows with specified height rather than cellspacing in some places. - various fixes (source file links were wrong, amongst others)
Diffstat (limited to 'src/HaddockRename.hs')
-rw-r--r--src/HaddockRename.hs8
1 files changed, 6 insertions, 2 deletions
diff --git a/src/HaddockRename.hs b/src/HaddockRename.hs
index 02085e2e..d1bc5efa 100644
--- a/src/HaddockRename.hs
+++ b/src/HaddockRename.hs
@@ -105,6 +105,10 @@ renameDecl decl
ty <- renameType ty
doc <- renameMaybeDoc doc
return (HsForeignImport loc cc safe ent n ty doc)
+ HsInstDecl loc ctxt asst decls -> do
+ ctxt <- mapM renamePred ctxt
+ asst <- renamePred asst
+ return (HsInstDecl loc ctxt asst decls)
_ ->
return decl
@@ -217,9 +221,9 @@ renameExportItems items = mapM rn items
rn (ExportGroup lev id doc)
= do doc <- renameDoc doc
return (ExportGroup lev id doc)
- rn (ExportDecl decl)
+ rn (ExportDecl x decl) -- x is an original name, don't rename it
= do decl <- renameDecl decl
- return (ExportDecl decl)
+ return (ExportDecl x decl)
rn (ExportDoc doc)
= do doc <- renameDoc doc
return (ExportDoc doc)