diff options
| author | Ben Gamari <ben@smart-cactus.org> | 2017-04-02 12:05:09 -0400 |
|---|---|---|
| committer | Ben Gamari <ben@smart-cactus.org> | 2017-04-02 12:05:09 -0400 |
| commit | 4ed33975e85f567dc351a21e2f27f097db15b7c1 (patch) | |
| tree | 9bb9f247413d4b44ff6fa22b398139af300b2c1e /testsuite/tests/ghci/scripts/GhciCurDir.script | |
| parent | dfac365f69a9380e3c3640b3bfaf9b9157f8d3b9 (diff) | |
| download | haskell-4ed33975e85f567dc351a21e2f27f097db15b7c1.tar.gz | |
testsuite: Fix GhciCurDir test
This was horribly, horribly wrong.
Diffstat (limited to 'testsuite/tests/ghci/scripts/GhciCurDir.script')
| -rw-r--r-- | testsuite/tests/ghci/scripts/GhciCurDir.script | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/testsuite/tests/ghci/scripts/GhciCurDir.script b/testsuite/tests/ghci/scripts/GhciCurDir.script index 785a773a0a..cfeb1a41d8 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." |