diff options
| author | Simon Marlow <marlowsd@gmail.com> | 2011-10-19 10:08:09 +0100 |
|---|---|---|
| committer | Simon Marlow <marlowsd@gmail.com> | 2011-10-19 10:09:43 +0100 |
| commit | e52d58c113c42e12fc65345f3c9d3c392364f1a2 (patch) | |
| tree | 4eb16ff260bab2d724721ebb0be50f58cb60c875 /testsuite/tests/driver | |
| parent | 4cee4102c0f7ac631150fe4ba0cc43612e24be28 (diff) | |
| download | haskell-e52d58c113c42e12fc65345f3c9d3c392364f1a2.tar.gz | |
strip away quotes in the argument, hack to fix 5313(ghci)
Diffstat (limited to 'testsuite/tests/driver')
| -rw-r--r-- | testsuite/tests/driver/5313.hs | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/testsuite/tests/driver/5313.hs b/testsuite/tests/driver/5313.hs index 5b73f11adf..543d937e7b 100644 --- a/testsuite/tests/driver/5313.hs +++ b/testsuite/tests/driver/5313.hs @@ -2,7 +2,9 @@ import qualified GHC import System.Environment main = do - (libdir:_) <- getArgs + (libdir0:_) <- getArgs + let libdir = filter (/= '\'') libdir0 -- sigh, remove superfluous quotes. + -- necessary to get the ghci way working GHC.runGhcT (Just libdir) $ do -- begin initialize df0 <- GHC.getSessionDynFlags |