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-api/test/Haddock/Backends | |
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-api/test/Haddock/Backends')
-rw-r--r-- | haddock-api/test/Haddock/Backends/Hyperlinker/ParserSpec.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/haddock-api/test/Haddock/Backends/Hyperlinker/ParserSpec.hs b/haddock-api/test/Haddock/Backends/Hyperlinker/ParserSpec.hs index 1273a45a..6e065dfb 100644 --- a/haddock-api/test/Haddock/Backends/Hyperlinker/ParserSpec.hs +++ b/haddock-api/test/Haddock/Backends/Hyperlinker/ParserSpec.hs @@ -19,7 +19,7 @@ import Haddock.Backends.Hyperlinker.Types withDynFlags :: (DynFlags -> IO ()) -> IO () withDynFlags cont = do libDir <- fmap snd (getGhcDirs []) - runGhc (Just libDir) $ do + runGhc libDir $ do dflags <- getSessionDynFlags liftIO $ cont dflags |