aboutsummaryrefslogtreecommitdiff
path: root/src/Haddock/GHC/Utils.hs
diff options
context:
space:
mode:
authorDavid Waern <david.waern@gmail.com>2008-08-03 17:47:26 +0000
committerDavid Waern <david.waern@gmail.com>2008-08-03 17:47:26 +0000
commit9b3fa59c6a9d678408e594435fe8f44e4587c2f4 (patch)
tree47d2aecf99d5fe782ea6cacdd3086cc690232e1b /src/Haddock/GHC/Utils.hs
parentca4f3779257dcfe2005cc980035c1c664389a8d1 (diff)
Filter out separately exported ATs (take two)
Diffstat (limited to 'src/Haddock/GHC/Utils.hs')
-rw-r--r--src/Haddock/GHC/Utils.hs4
1 files changed, 4 insertions, 0 deletions
diff --git a/src/Haddock/GHC/Utils.hs b/src/Haddock/GHC/Utils.hs
index 9aa89a88..6de56f88 100644
--- a/src/Haddock/GHC/Utils.hs
+++ b/src/Haddock/GHC/Utils.hs
@@ -92,6 +92,10 @@ isInstD (TyClD d) = isFamInstDecl d
isInstD _ = False
+declATs (TyClD d) | isClassDecl d = map (tcdName . unL) $ tcdATs d
+declATs _ = []
+
+
pretty :: Outputable a => a -> String
pretty x = showSDoc (ppr x)