aboutsummaryrefslogtreecommitdiff
path: root/src/Haddock/Interface/Create.hs
diff options
context:
space:
mode:
authorDavid Waern <david.waern@gmail.com>2008-08-03 15:25:00 +0000
committerDavid Waern <david.waern@gmail.com>2008-08-03 15:25:00 +0000
commit7670eae9cd5c52209dd4e0a1d59558a9f990a572 (patch)
treede185a7c823f9ff9e3a890dd2def6e9056bc3ef3 /src/Haddock/Interface/Create.hs
parenta5e9146335e69f13c2dd1a4b49ed09b1651c2e95 (diff)
Use isVanillaLSig from GHC API instead of home brewn function
Diffstat (limited to 'src/Haddock/Interface/Create.hs')
-rw-r--r--src/Haddock/Interface/Create.hs7
1 files changed, 1 insertions, 6 deletions
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
--------------------------------------------------------------------------------