aboutsummaryrefslogtreecommitdiff
path: root/src/Haddock
diff options
context:
space:
mode:
authorDavid Waern <david.waern@gmail.com>2008-07-07 22:13:58 +0000
committerDavid Waern <david.waern@gmail.com>2008-07-07 22:13:58 +0000
commit9b4ba226c4b85b9126be865bae2e5b3558fdaef6 (patch)
tree4eeaa0c677eef2b7f59921e48a99609014ff8d14 /src/Haddock
parentab45e736f6a4c720c3c69f4d3fccdd293a298806 (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.
Diffstat (limited to 'src/Haddock')
-rw-r--r--src/Haddock/Interface/AttachInstances.hs4
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) ]