diff options
| author | simonpj <simonpj@microsoft.com> | 2009-07-02 15:35:22 +0000 |
|---|---|---|
| committer | simonpj <simonpj@microsoft.com> | 2009-07-02 15:35:22 +0000 |
| commit | 824a2fd3ee90c7e8d92b12fcc362bc81dd8af404 (patch) | |
| tree | 1e586a95fd1a48c51f2790be298eb8b3b4003584 | |
| parent | 8991caf3ed2095e82ab0092ee315aa85f7819da9 (diff) | |
Follow extra field in ConDecl
| -rw-r--r-- | src/Haddock/Interface/Rename.hs | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/src/Haddock/Interface/Rename.hs b/src/Haddock/Interface/Rename.hs index df885df5..f9b115f1 100644 --- a/src/Haddock/Interface/Rename.hs +++ b/src/Haddock/Interface/Rename.hs @@ -350,14 +350,16 @@ renameTyClD d = case d of where renameLCon (L loc con) = return . L loc =<< renameCon con - renameCon (ConDecl lname expl ltyvars lcontext details restype mbldoc) = do + renameCon decl@(ConDecl { con_name = lname, con_qvars = ltyvars + , con_cxt = lcontext, con_details = details + , con_res = restype, con_doc = mbldoc }) = do lname' <- renameL lname ltyvars' <- mapM renameLTyVarBndr ltyvars lcontext' <- renameLContext lcontext details' <- renameDetails details restype' <- renameResType restype mbldoc' <- mapM renameLDoc mbldoc - return (ConDecl lname' expl ltyvars' lcontext' details' restype' mbldoc') + return (ConDecl lname' expl ltyvars' lcontext' details' restype' mbldoc') renameDetails (RecCon fields) = return . RecCon =<< mapM renameField fields renameDetails (PrefixCon ps) = return . PrefixCon =<< mapM renameLType ps |