2 minor fixes to transferkeys, otherwise it was perfect 1st time!
Needed to send a trailing NUL to end a request, and set the read handle non-blocking. Also, set fileSystemEncoding on all handles, since there's a filename in there.
This commit is contained in:
parent
b6d691aff7
commit
2c26bd1c65
2 changed files with 9 additions and 1 deletions
|
@ -62,6 +62,8 @@ mkTransferrer program = do
|
|||
closeFd tread
|
||||
myreadh <- fdToHandle myread
|
||||
mywriteh <- fdToHandle mywrite
|
||||
fileEncoding myreadh
|
||||
fileEncoding mywriteh
|
||||
return $ Transferrer
|
||||
{ transferrerRead = myreadh
|
||||
, transferrerWrite = mywriteh
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue