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_err = CreatePipe
|
||||
}
|
||||
withCreateProcess cp' \hin hout herr pid -> do
|
||||
withCreateProcess cp' $ \hin hout herr pid -> do
|
||||
let p = (hin, hout, herr, pid)
|
||||
getout <- asyncreader (stdoutHandle p)
|
||||
geterr <- asyncreader (stderrHandle p)
|
||||
|
|
Loading…
Reference in a new issue