diff options
| author | Ryan Scott <ryan.gl.scott@gmail.com> | 2018-04-19 08:31:08 -0400 |
|---|---|---|
| committer | Ryan Scott <ryan.gl.scott@gmail.com> | 2018-04-19 08:31:08 -0400 |
| commit | 2fdfe056812ec469a05f46f228ef076942297b5f (patch) | |
| tree | f73e926e4ca80e225214511bfd01e14b0611f27d /libraries/base/tests | |
| parent | 447d1264abcd52bdd98267d109bfc1ff1c96ad27 (diff) | |
| download | haskell-2fdfe056812ec469a05f46f228ef076942297b5f.tar.gz | |
Bump unix submodule to version 2.8.0.0
Summary: Requires bumping several submodules.
Test Plan: ./validate
Reviewers: hvr, bgamari
Subscribers: thomie, carter
GHC Trac Issues: #15042
Differential Revision: https://phabricator.haskell.org/D4604
Diffstat (limited to 'libraries/base/tests')
| -rw-r--r-- | libraries/base/tests/IO/T2122.hs | 4 | ||||
| -rw-r--r-- | libraries/base/tests/T7773.hs | 4 |
2 files changed, 4 insertions, 4 deletions
diff --git a/libraries/base/tests/IO/T2122.hs b/libraries/base/tests/IO/T2122.hs index 9a8badc216..488d2434bc 100644 --- a/libraries/base/tests/IO/T2122.hs +++ b/libraries/base/tests/IO/T2122.hs @@ -51,9 +51,9 @@ test causeFailure = -- probably because openFd does not try to lock the file test2 :: Bool -> IO () test2 causeFailure = - do fd1 <- openFd fp ReadOnly Nothing defaultFileFlags `catchIOError` (\e -> error ("openFile 1: " ++ show e)) + do fd1 <- openFd fp ReadOnly defaultFileFlags `catchIOError` (\e -> error ("openFile 1: " ++ show e)) when causeFailure $ do - fd2 <- openFd fp ReadOnly Nothing defaultFileFlags `catchIOError` (\e -> error ("openFile 2: " ++ show e)) + fd2 <- openFd fp ReadOnly defaultFileFlags `catchIOError` (\e -> error ("openFile 2: " ++ show e)) closeFd fd2 closeFd fd1 removeFile fp diff --git a/libraries/base/tests/T7773.hs b/libraries/base/tests/T7773.hs index 495cd7abd9..7f73b12f3b 100644 --- a/libraries/base/tests/T7773.hs +++ b/libraries/base/tests/T7773.hs @@ -3,7 +3,7 @@ import System.Posix.IO main = do putStrLn "hello" - fd <- openFd "/dev/random" ReadOnly Nothing defaultFileFlags + fd <- openFd "/dev/random" ReadOnly defaultFileFlags threadWaitRead fd putStrLn "goodbye" -
\ No newline at end of file + |