diff options
Diffstat (limited to 'testsuite/tests/runghc/T-signals-child.hs')
-rw-r--r-- | testsuite/tests/runghc/T-signals-child.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/testsuite/tests/runghc/T-signals-child.hs b/testsuite/tests/runghc/T-signals-child.hs index ee36f62121..ddc21278fc 100644 --- a/testsuite/tests/runghc/T-signals-child.hs +++ b/testsuite/tests/runghc/T-signals-child.hs @@ -21,7 +21,7 @@ main = do runParent :: FilePath -> IO () runParent runghc = do - (Just inH, Just outH, Nothing, ph@(ProcessHandle mvar _)) <- + (Just inH, Just outH, Nothing, ph@(ProcessHandle mvar _ _)) <- createProcess (proc runghc ["T-signals-child.hs", "child"]) { std_in = CreatePipe , std_out = CreatePipe |