diff options
| author | David Waern <david.waern@gmail.com> | 2008-08-03 15:25:00 +0000 |
|---|---|---|
| committer | David Waern <david.waern@gmail.com> | 2008-08-03 15:25:00 +0000 |
| commit | 7670eae9cd5c52209dd4e0a1d59558a9f990a572 (patch) | |
| tree | de185a7c823f9ff9e3a890dd2def6e9056bc3ef3 | |
| parent | a5e9146335e69f13c2dd1a4b49ed09b1651c2e95 (diff) | |
Use isVanillaLSig from GHC API instead of home brewn function
| -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 -------------------------------------------------------------------------------- |