diff options
| -rw-r--r-- | src/Haddock/Interface/Create.hs | 7 |
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 -------------------------------------------------------------------------------- |