fix build on windows

This commit is contained in:
Joey Hess 2020-07-01 16:53:50 -04:00
parent 117bd04693
commit 38c0057cc6
No known key found for this signature in database
GPG key ID: DB12DB0FF05F8F38

View file

@ -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)