diff options
| author | simonpj <simonpj@microsoft.com> | 2011-01-10 17:31:12 +0000 |
|---|---|---|
| committer | simonpj <simonpj@microsoft.com> | 2011-01-10 17:31:12 +0000 |
| commit | 7826978b684628a8b6a4c0d1e42819683c722268 (patch) | |
| tree | 02df43d539e94332377cd60e82962e2bc9957674 | |
| parent | 89d75630b334906e556f4de253c1cefa7819090d (diff) | |
Update Haddock to reflect change in hs_tyclds field of HsGroup
| -rw-r--r-- | src/Haddock/Interface/Create.hs | 14 |
1 files changed, 7 insertions, 7 deletions
diff --git a/src/Haddock/Interface/Create.hs b/src/Haddock/Interface/Create.hs index d651fe75..1eb2524a 100644 --- a/src/Haddock/Interface/Create.hs +++ b/src/Haddock/Interface/Create.hs @@ -279,13 +279,13 @@ filterOutInstances = filter (\(L _ d, _, _) -> not (isInstD d)) -- bindings from an 'HsGroup'. declsFromGroup :: HsGroup Name -> [Decl] declsFromGroup group_ = - mkDecls hs_tyclds TyClD group_ ++ - mkDecls hs_derivds DerivD group_ ++ - mkDecls hs_defds DefD group_ ++ - mkDecls hs_fords ForD group_ ++ - mkDecls hs_docs DocD group_ ++ - mkDecls hs_instds InstD group_ ++ - mkDecls (typesigs . hs_valds) SigD group_ + mkDecls (concat . hs_tyclds) TyClD group_ ++ + mkDecls hs_derivds DerivD group_ ++ + mkDecls hs_defds DefD group_ ++ + mkDecls hs_fords ForD group_ ++ + mkDecls hs_docs DocD group_ ++ + mkDecls hs_instds InstD group_ ++ + mkDecls (typesigs . hs_valds) SigD group_ where typesigs (ValBindsOut _ sigs) = filter isVanillaLSig sigs typesigs _ = error "expected ValBindsOut" |