testsuite: Fix GhciCurDir test
[ghc.git] / testsuite / tests / ghci / scripts / GhciCurDir.script
index 785a773..cfeb1a4 100644 (file)
@@ -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."