aboutsummaryrefslogtreecommitdiff
path: root/src
diff options
context:
space:
mode:
authorDr. ERDI Gergo <gergo@erdi.hu>2014-04-12 21:34:35 +0800
committerDr. ERDI Gergo <gergo@erdi.hu>2014-04-13 16:31:10 +0800
commitac60bd1f98ad02644d3ea36dd4926ed6e105c789 (patch)
tree2bbdf5fc25aefe6423ed4318b195edb826a4d1cf /src
parent8222e68281558f9f6b4ebf1046aad2690d82e1bd (diff)
remove Origin flag from LHsBindsLR
Diffstat (limited to 'src')
-rw-r--r--src/Haddock/Interface/Create.hs16
1 files changed, 8 insertions, 8 deletions
diff --git a/src/Haddock/Interface/Create.hs b/src/Haddock/Interface/Create.hs
index fb1038f2..08810d6e 100644
--- a/src/Haddock/Interface/Create.hs
+++ b/src/Haddock/Interface/Create.hs
@@ -364,7 +364,7 @@ classDecls class_ = filterDecls . collectDocs . sortByLoc $ decls
where
decls = docs ++ defs ++ sigs ++ ats
docs = mkDecls tcdDocs DocD class_
- defs = mkDecls (map snd . bagToList . tcdMeths) ValD class_
+ defs = mkDecls (bagToList . tcdMeths) ValD class_
sigs = mkDecls tcdSigs SigD class_
ats = mkDecls tcdATs (TyClD . FamDecl) class_
@@ -384,13 +384,13 @@ mkFixMap group_ = M.fromList [ (n,f)
ungroup :: HsGroup Name -> [LHsDecl Name]
ungroup group_ =
mkDecls (tyClGroupConcat . 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 (map snd . valbinds . hs_valds) ValD 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 (valbinds . hs_valds) ValD group_
where
typesigs (ValBindsOut _ sigs) = filter isVanillaLSig sigs
typesigs _ = error "expected ValBindsOut"