From 7670eae9cd5c52209dd4e0a1d59558a9f990a572 Mon Sep 17 00:00:00 2001
From: David Waern <david.waern@gmail.com>
Date: Sun, 3 Aug 2008 15:25:00 +0000
Subject:  Use isVanillaLSig from GHC API instead of home brewn function

---
 src/Haddock/Interface/Create.hs | 7 +------
 1 file changed, 1 insertion(+), 6 deletions(-)

(limited to 'src/Haddock')

diff --git a/src/Haddock/Interface/Create.hs b/src/Haddock/Interface/Create.hs
index 8944ab7f..70713b5d 100644
--- a/src/Haddock/Interface/Create.hs
+++ b/src/Haddock/Interface/Create.hs
@@ -278,16 +278,11 @@ filterDecls decls = filter (isHandled . unL . fst) decls
   where
     -- TODO: filter out exactly everything we don't handle   
     isHandled (ForD (ForeignExport {})) = False
-    isHandled (SigD d) = isHandledSig d
+    isHandled (SigD d) = isVanillaLSig (reL d)
     isHandled (ValD d) = False
     isHandled _ = True 
 
 
--- | Is the 'Sig' handled by Haddock?
-isHandledSig (TypeSig {}) = True
-isHandledSig _ = False
-
-
 --------------------------------------------------------------------------------
 -- Instances
 --------------------------------------------------------------------------------
-- 
cgit v1.2.3