From 1e8b363ce18fb813cbd826e5c39a1e4571e1d7b8 Mon Sep 17 00:00:00 2001
From: Michael Snoyman <michael@snoyman.com>
Date: Fri, 25 Jan 2013 06:33:00 +0200
Subject: [PATCH] Absolute path for test suites

---
 Stackage/Test.hs | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/Stackage/Test.hs b/Stackage/Test.hs
index 0eb58346..f91b4ec8 100644
--- a/Stackage/Test.hs
+++ b/Stackage/Test.hs
@@ -20,7 +20,8 @@ import           System.IO          (IOMode (WriteMode, AppendMode),
 import           System.Process     (runProcess, waitForProcess)
 
 runTestSuites :: BuildSettings -> BuildPlan -> IO ()
-runTestSuites settings bp = do
+runTestSuites settings' bp = do
+    settings <- fixBuildSettings settings'
     let selected = bpPackages bp
     putStrLn "Running test suites"
     let testdir = "runtests"