diff options
| -rw-r--r-- | hadrian/src/Rules/Documentation.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/hadrian/src/Rules/Documentation.hs b/hadrian/src/Rules/Documentation.hs index 77c98e623d..5296e2bea3 100644 --- a/hadrian/src/Rules/Documentation.hs +++ b/hadrian/src/Rules/Documentation.hs @@ -114,7 +114,7 @@ documentationRules = do when (SphinxPDFs `Set.member` doctargets) $ checkUserGuideFlags $ pdfRoot -/- "users_guide" -/- "ghc-flags.txt" when (SphinxHTML `Set.member` doctargets) - $ checkUserGuideFlags $ htmlRoot -/- "users_guide" -/- "ghc-flags.txt" + $ checkUserGuideFlags $ root -/- htmlRoot -/- "users_guide" -/- "ghc-flags.txt" where archiveTarget "libraries" = Haddocks archiveTarget _ = SphinxHTML @@ -132,7 +132,7 @@ checkSphinxWarnings out = do -- | Check that all GHC flags are documented in the users guide. checkUserGuideFlags :: FilePath -> Action () checkUserGuideFlags documentedFlagList = do - scriptPath <- (</> "docs/user_guide/compare-flags.py") <$> topDirectory + scriptPath <- (</> "docs/users_guide/compare-flags.py") <$> topDirectory ghcPath <- (</>) <$> topDirectory <*> programPath (vanillaContext Stage1 ghc) runBuilder Python [ scriptPath |