diff options
| author | Simon Jakobi <simon.jakobi@gmail.com> | 2019-11-28 16:01:51 +0100 |
|---|---|---|
| committer | Marge Bot <ben+marge-bot@smart-cactus.org> | 2020-05-14 03:31:58 -0400 |
| commit | 477f13bb4c5c2ba969d2c90890c51d7de01c5312 (patch) | |
| tree | 925e736323bfa0504b169d3f49291b15f6b828d8 /hadrian/src | |
| parent | c05c06596bd1b2852454af6243fc15ee852d2f45 (diff) | |
| download | haskell-477f13bb4c5c2ba969d2c90890c51d7de01c5312.tar.gz | |
Use Data.IntMap.disjoint
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')
| -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. |