Update runtests.hs to work with GHC 6.11

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..."