aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--tests/golden-tests/runtests.hs9
1 files changed, 5 insertions, 4 deletions
diff --git a/tests/golden-tests/runtests.hs b/tests/golden-tests/runtests.hs
index 99a47828..f3c142e0 100644
--- a/tests/golden-tests/runtests.hs
+++ b/tests/golden-tests/runtests.hs
@@ -14,7 +14,8 @@ import Distribution.Verbosity
import Data.Maybe
-haddockPath = ".." </> "dist" </> "build" </> "haddock" </> "haddock"
+haddockBase = ".." </> ".."
+haddockPath = haddockBase </> "dist" </> "build" </> "haddock" </> "haddock"
main = do
@@ -39,12 +40,12 @@ test = do
putStrLn ""
putStrLn "Haddock version: "
h1 <- runProcess haddockPath ["--version"] Nothing
- (Just [("haddock_datadir", "../.")]) Nothing Nothing Nothing
+ (Just [("haddock_datadir", haddockBase)]) Nothing Nothing Nothing
waitForProcess h1
putStrLn ""
putStrLn "GHC version: "
h2 <- runProcess haddockPath ["--ghc-version"] Nothing
- (Just [("haddock_datadir", "../.")]) Nothing Nothing Nothing
+ (Just [("haddock_datadir", haddockBase)]) Nothing Nothing Nothing
waitForProcess h2
putStrLn ""
@@ -64,7 +65,7 @@ test = do
handle <- runProcess haddockPath
(["-w", "-o", outdir, "-h", "--optghc=-fglasgow-exts"
, "--optghc=-w", base, process, ghcprim] ++ opts ++ mods')
- Nothing (Just [("haddock_datadir", "../.")]) Nothing
+ Nothing (Just [("haddock_datadir", haddockBase)]) Nothing
Nothing Nothing
code <- waitForProcess handle