From cce29e9a0e7063122a116f96746378e564c582ae Mon Sep 17 00:00:00 2001
From: David Waern <david.waern@gmail.com>
Date: Thu, 26 Jun 2008 20:26:49 +0000
Subject: Use ghc-paths to get the lib dir

The path can still be overridden using the -B flag. It's not longer
required to pass the lib dir to the program that runs the test suite.
---
 src/Main.hs | 11 ++++++++---
 1 file changed, 8 insertions(+), 3 deletions(-)

(limited to 'src/Main.hs')

diff --git a/src/Main.hs b/src/Main.hs
index f19ae659..3626abe4 100644
--- a/src/Main.hs
+++ b/src/Main.hs
@@ -34,6 +34,7 @@ import System.Exit
 import System.Environment
 
 import GHC
+import GHC.Paths
 import DynFlags
 import Bag
 import Util (handleDyn)
@@ -111,8 +112,12 @@ main = handleTopExceptions $ do
 
   if not (null fileArgs)
     then do
+
+      let libDir
+            | Just dir <- getGhcLibDir flags = dir
+            | otherwise = libdir -- from GHC.Paths
+
       -- initialize GHC
-      libDir <- getGhcLibDir flags
       (session, dynflags) <- startGhc libDir (ghcFlags flags)
 
       -- get packages supplied with --read-interface
@@ -275,8 +280,8 @@ dumpInterfaceFile ifaces homeLinks flags =
 
 getGhcLibDir flags =
   case [ dir | Flag_GhcLibDir dir <- flags ] of
-    [] -> throwE "no GHC lib dir specified"
-    xs -> return $ last xs
+    [] -> Nothing
+    xs -> Just $ last xs
 
 
 handleEasyFlags flags fileArgs = do
-- 
cgit v1.2.3