aboutsummaryrefslogtreecommitdiff
path: root/src/Haddock/Interface
diff options
context:
space:
mode:
authorDavid Waern <david.waern@gmail.com>2008-07-02 22:01:38 +0000
committerDavid Waern <david.waern@gmail.com>2008-07-02 22:01:38 +0000
commitab45e736f6a4c720c3c69f4d3fccdd293a298806 (patch)
tree215e88ff56bb464dbabe1d04ceba81b09ec26135 /src/Haddock/Interface
parent49a591787f44f0cc2cb793e4a77980a227fb2a0b (diff)
More support for type families and associated types
Now we just need to render the instances
Diffstat (limited to 'src/Haddock/Interface')
-rw-r--r--src/Haddock/Interface/Create.hs4
1 files changed, 3 insertions, 1 deletions
diff --git a/src/Haddock/Interface/Create.hs b/src/Haddock/Interface/Create.hs
index d2e616cc..1b6721e0 100644
--- a/src/Haddock/Interface/Create.hs
+++ b/src/Haddock/Interface/Create.hs
@@ -151,7 +151,7 @@ sortByLoc = map unLoc . sortBy (comparing getLoc)
-- | Get all the entities in a class. The entities are sorted by their
-- SrcLoc.
-getClassEntities tcd = sortByLoc (docs ++ meths ++ sigs)
+getClassEntities tcd = sortByLoc (docs ++ meths ++ sigs ++ ats)
where
docs = [ L l (DocEntity d) | L l d <- tcdDocs tcd ]
@@ -163,6 +163,8 @@ getClassEntities tcd = sortByLoc (docs ++ meths ++ sigs)
-- TODO: fixities
sigs = [ L l $ DeclEntity name | L l (TypeSig (L _ name) _) <- tcdSigs tcd ]
+ ats = [ L l $ DeclEntity name | L l at <- tcdATs tcd
+ , let L _ name = tcdLName at ]
-- | Get all the top level entities in a module. The entities are sorted by
-- their SrcLoc.