diff options
| author | David Waern <david.waern@gmail.com> | 2008-07-07 22:13:58 +0000 |
|---|---|---|
| committer | David Waern <david.waern@gmail.com> | 2008-07-07 22:13:58 +0000 |
| commit | 9b4ba226c4b85b9126be865bae2e5b3558fdaef6 (patch) | |
| tree | 4eeaa0c677eef2b7f59921e48a99609014ff8d14 | |
| parent | ab45e736f6a4c720c3c69f4d3fccdd293a298806 (diff) | |
Remove filtering of instances
We were filtering out all instances for types with unknown names. This was probably an
attempt to filter out instances for internal types. I am removing the filtering for the
moment, and will try to fix this properly later.
| -rw-r--r-- | src/Haddock/Interface/AttachInstances.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/Haddock/Interface/AttachInstances.hs b/src/Haddock/Interface/AttachInstances.hs index 7356b9be..aed832bb 100644 --- a/src/Haddock/Interface/AttachInstances.hs +++ b/src/Haddock/Interface/AttachInstances.hs @@ -71,8 +71,8 @@ collectInstances modules filterNames where allInstances = concat (map ifaceInstances modules) classInstPairs = [ (is_cls inst, [instanceHead inst]) | - inst <- allInstances, Just n <- nub (is_tcs inst), - n `elem` filterNames ] + inst <- allInstances, Just n <- nub (is_tcs inst) ] + -- n `elem` filterNames ] tyInstPairs = [ (tycon, [instanceHead inst]) | inst <- allInstances, Just tycon <- nub (is_tcs inst) ] |