[commit: ghc] ghc-8.2: testsuite: Fix GhciCurDir test (db6664f)

[git at git.haskell.org]

Repository : ssh://git@git.haskell.org/ghc

On branch  : ghc-8.2
Link       : http://ghc.haskell.org/trac/ghc/changeset/db6664f0186ff2b58a2300dd00b54353c49f7649/ghc

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

commit db6664f0186ff2b58a2300dd00b54353c49f7649
Author: Ben Gamari <ben at smart-cactus.org>
Date:   Sun Apr 2 12:05:09 2017 -0400

    testsuite: Fix GhciCurDir test
    
    This was horribly, horribly wrong.
    
    (cherry picked from commit 4ed33975e85f567dc351a21e2f27f097db15b7c1)


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

db6664f0186ff2b58a2300dd00b54353c49f7649
 testsuite/tests/ghci/scripts/GhciCurDir.script | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/testsuite/tests/ghci/scripts/GhciCurDir.script b/testsuite/tests/ghci/scripts/GhciCurDir.script
index 785a773..cfeb1a4 100644
--- a/testsuite/tests/ghci/scripts/GhciCurDir.script
+++ b/testsuite/tests/ghci/scripts/GhciCurDir.script
@@ -4,4 +4,5 @@ import Control.Monad
 createDirectory "test"
 createDirectory "test/test1"
 :cd test
-unless ("test1" `elem` getDirectoryContents ".") $ putStrLn "Uh oh."
+fs <- getDirectoryContents "."
+unless ("test1" `elem` fs) $ putStrLn "Uh oh."