diff options
| author | Simon Jakobi <simon.jakobi@gmail.com> | 2019-11-28 16:01:51 +0100 |
|---|---|---|
| committer | Ben Gamari <ben@smart-cactus.org> | 2020-05-09 20:53:34 -0400 |
| commit | 118a779c6e4cbc64a3381a3de1db249b070ed2b9 (patch) | |
| tree | 98108d58c616c60dc5b6b5c77ac927dc34b82e61 /hadrian/src/Rules/Documentation.hs | |
| parent | ea86360f21e8c9812acba8dc1bc2a54fef700ece (diff) | |
| download | haskell-118a779c6e4cbc64a3381a3de1db249b070ed2b9.tar.gz | |
Use Data.IntMap.disjointwip/T16806
Data.IntMap gained a dedicated `disjoint` function in containers-0.6.2.1.
This patch applies this function where appropriate in hopes of modest
compiler performance improvements.
Closes #16806.
Diffstat (limited to 'hadrian/src/Rules/Documentation.hs')
| -rw-r--r-- | hadrian/src/Rules/Documentation.hs | 5 |
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. |