aboutsummaryrefslogtreecommitdiff
path: root/tests/runtests.hs
diff options
context:
space:
mode:
Diffstat (limited to 'tests/runtests.hs')
-rw-r--r--tests/runtests.hs6
1 files changed, 3 insertions, 3 deletions
diff --git a/tests/runtests.hs b/tests/runtests.hs
index e4d676b3..45c73ee2 100644
--- a/tests/runtests.hs
+++ b/tests/runtests.hs
@@ -25,7 +25,7 @@ haddockEq file1 file2 = stripLinks file1 == stripLinks file2
programOnPath p = do
- result <- findProgramOnPath p silent
+ result <- findProgramOnPath silent p
return (isJust result)
@@ -70,9 +70,9 @@ test = do
putStrLn ""
libdir <- rawSystemStdout normal "../dist/build/haddock/haddock" ["--print-ghc-libdir"]
- let basepath = init libdir ++ "/../../share/doc/ghc/libraries/base/"
+ let basepath = init libdir ++ "/../../share/doc/ghc/html/libraries/base/"
let base = "-i " ++ basepath ++ "," ++ basepath ++ "base.haddock"
- let processpath = init libdir ++ "/../../share/doc/ghc/libraries/process/"
+ let processpath = init libdir ++ "/../../share/doc/ghc/html/libraries/process/"
let process = "-i " ++ processpath ++ "," ++ processpath ++ "process.haddock"
putStrLn "Running tests..."