summaryrefslogtreecommitdiff
path: root/hadrian/src/Rules/Documentation.hs
diff options
context:
space:
mode:
Diffstat (limited to 'hadrian/src/Rules/Documentation.hs')
-rw-r--r--hadrian/src/Rules/Documentation.hs5
1 files changed, 2 insertions, 3 deletions
diff --git a/hadrian/src/Rules/Documentation.hs b/hadrian/src/Rules/Documentation.hs
index 8d90357312..a673e2e074 100644
--- a/hadrian/src/Rules/Documentation.hs
+++ b/hadrian/src/Rules/Documentation.hs
@@ -103,9 +103,8 @@ documentationRules = do
-- include toplevel html target unless we neither want
-- haddocks nor html pages produced by sphinx.
- ++ [ html | Set.size (doctargets `Set.intersection`
- Set.fromList [Haddocks, SphinxHTML]
- ) > 0 ]
+ ++ [ html | Haddocks `Set.member` doctargets
+ || SphinxHTML `Set.member` doctargets ]
-- include archives for whatever targets remain from
-- the --docs arguments we got.