diff options
| author | Alec Theriault <alec.theriault@gmail.com> | 2019-02-13 11:36:11 -0500 |
|---|---|---|
| committer | GitHub <noreply@github.com> | 2019-02-13 11:36:11 -0500 |
| commit | 0438f0ac7605fb6b9850acd34cc169f84a3f6088 (patch) | |
| tree | d8e14c6205f586ffe833d5978937d764a87867d0 /haddock-test/src/Test/Haddock.hs | |
| parent | 9790200cb854b75e00afaf2eea49a22b7223b200 (diff) | |
Clean up logic for guessing `-B` and `--lib` (#1026)
Haddock built with the `in-ghc-tree` flag tries harder to find the GHC
lib folder and its own resources. This should make it possible to use
`in-ghc-tree`-built Haddock without having to specify the `-B` and
`--lib` options (just how you can use in-tree GHC without always
specifying the `-B` option).
The logic to do this relies on `getExecutablePath`, so we only get
this auto-detection on platforms where this function works.
Diffstat (limited to 'haddock-test/src/Test/Haddock.hs')
| -rw-r--r-- | haddock-test/src/Test/Haddock.hs | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/haddock-test/src/Test/Haddock.hs b/haddock-test/src/Test/Haddock.hs index 25c64cfe..1019e815 100644 --- a/haddock-test/src/Test/Haddock.hs +++ b/haddock-test/src/Test/Haddock.hs @@ -42,6 +42,7 @@ checkFiles :: Config c -> Bool -> IO () checkFiles cfg@(Config { .. }) somethingCrashed = do putStrLn "Testing output files..." + createDirectoryIfMissing True (cfgOutDir cfg) files <- ignore <$> getDirectoryTree (cfgOutDir cfg) failed <- liftM catMaybes . forM files $ \file -> do putStr $ "Checking \"" ++ file ++ "\"... " |