aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-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
--------------------------------------------------------------------------------