[commit: testsuite] master: Fix T4891: Don't hardcode the patch to GHC (f65f848)

[Ian Lynagh]

Repository : ssh://darcs.haskell.org//srv/darcs/testsuite

On branch  : master

http://hackage.haskell.org/trac/ghc/changeset/f65f848c6378b52785262fe86cfe1431b4bab83e

>---------------------------------------------------------------

commit f65f848c6378b52785262fe86cfe1431b4bab83e
Author: Ian Lynagh <igloo at earth.li>
Date:   Fri Apr 8 13:13:26 2011 +0100

    Fix T4891: Don't hardcode the patch to GHC

>---------------------------------------------------------------

 tests/ghc-regress/ghc-api/T4891/T4891.hs |    8 +++++++-
 1 files changed, 7 insertions(+), 1 deletions(-)

diff --git a/tests/ghc-regress/ghc-api/T4891/T4891.hs b/tests/ghc-regress/ghc-api/T4891/T4891.hs
index 8dd3686..977f854 100644
--- a/tests/ghc-regress/ghc-api/T4891/T4891.hs
+++ b/tests/ghc-regress/ghc-api/T4891/T4891.hs
@@ -24,8 +24,14 @@ import Outputable
 import GhcMonad
 import X
 
+import System.Environment
+
 main :: IO ()
-main = runGhc (Just "/home/ian/ghc/git/ghc/inplace/lib") $ do
+main = do [libdir] <- getArgs
+          runGhc (Just libdir) doit
+
+doit :: Ghc ()
+doit = do
   dflags' <- getSessionDynFlags
   primPackages <- setSessionDynFlags dflags'
   dflags <- getSessionDynFlags