diff options
Diffstat (limited to 'src/HaddockRename.hs')
| -rw-r--r-- | src/HaddockRename.hs | 8 |
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) |