Commit eb6ee6f7 authored by Mikhail Glushenkov's avatar Mikhail Glushenkov
Browse files

Tweak the code a bit.

parent 612fa9e0
......@@ -758,10 +758,10 @@ regenerateHaddockIndex verbosity packageDBs comp platform conf useSandbox
&& isJust (flagToMaybe (installHaddockIndex installFlags))
-- We want to regenerate the index if some new documentation was actually
-- installed. Since the index is per-user, we don't do it for global
-- installs or special cases where we're installing into a specific db
-- (except when we're in a sandbox; see #1337).
shouldRegenerateHaddockIndex = (normalUserInstall || isUseSandbox useSandbox)
-- installed. Since the index can be only per-user or per-sandbox (see
-- #1337), we don't do it for global installs or special cases where we're
-- installing into a specific db.
shouldRegenerateHaddockIndex = (isUseSandbox useSandbox || normalUserInstall)
&& someDocsWereInstalled installPlan
where
someDocsWereInstalled = any installedDocs . InstallPlan.toList
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment