From edffbce94fc30b2e1bb48e0a7431baf31f3d6c4f Mon Sep 17 00:00:00 2001
From: David Waern <davve@dtek.chalmers.se>
Date: Thu, 8 Nov 2007 02:13:41 +0000
Subject: [PATCH] Update runtests.hs following changes to haddock

---
 tests/runtests.hs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/tests/runtests.hs b/tests/runtests.hs
index 18375b9720..321938b30c 100644
--- a/tests/runtests.hs
+++ b/tests/runtests.hs
@@ -10,7 +10,7 @@ import Text.Regex
 
 main = do
   args <- getArgs
-  when (null args) $ error "You must give the path to the GHC lib dir with -B"  
+  when (null args) $ error "You must give the path to the GHC lib dir as an argument"  
   putStrLn "Running tests..."
   let libdir = head args
   walkDirs libdir "."
@@ -60,7 +60,7 @@ testDir libdir dir = do
   let mods' = map (dir </>) mods
   let outdir = "output" </> dir
   createDirectoryIfMissing True outdir
-  code <- system $ printf "haddock -B %s -o %s -h -g -fglasgow-exts %s" libdir outdir (unwords mods')
+  code <- system $ printf "haddock -B %s -o %s -h --optghc=-fglasgow-exts %s" libdir outdir (unwords mods')
   unless (code == ExitSuccess) $ error "Haddock run failed! Exiting."
   check mods'
   walkDirs libdir dir
-- 
GitLab