fix build on windows
This commit is contained in:
parent
117bd04693
commit
38c0057cc6
1 changed files with 1 additions and 1 deletions
|
@ -75,7 +75,7 @@ processTranscript'' cp input = do
|
||||||
, std_out = CreatePipe
|
, std_out = CreatePipe
|
||||||
, std_err = CreatePipe
|
, std_err = CreatePipe
|
||||||
}
|
}
|
||||||
withCreateProcess cp' \hin hout herr pid -> do
|
withCreateProcess cp' $ \hin hout herr pid -> do
|
||||||
let p = (hin, hout, herr, pid)
|
let p = (hin, hout, herr, pid)
|
||||||
getout <- asyncreader (stdoutHandle p)
|
getout <- asyncreader (stdoutHandle p)
|
||||||
geterr <- asyncreader (stderrHandle p)
|
geterr <- asyncreader (stderrHandle p)
|
||||||
|
|
Loading…
Add table
Add a link
Reference in a new issue