From 9b3fa59c6a9d678408e594435fe8f44e4587c2f4 Mon Sep 17 00:00:00 2001
From: David Waern <david.waern@gmail.com>
Date: Sun, 3 Aug 2008 17:47:26 +0000
Subject: Filter out separately exported ATs (take two)

---
 src/Haddock/GHC/Utils.hs | 4 ++++
 1 file changed, 4 insertions(+)

(limited to 'src/Haddock/GHC')

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)
 
-- 
cgit v1.2.3