diff options
| author |  Joey Hess <joey@kitenet.net> | 2013-03-20 13:18:12 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2013-03-20 13:24:35 -0400 |
| commit | 5ad221d0deb2fa92a50dfd64bea884b61ea706b0 (patch) | |
| tree | 8e11aa51df9f74f0c725608f2eeb85488d5696c3 /Assistant/TransferrerPool.hs | |
| parent | 4887b1b3afd8acf58602d622499664ffb777a8b1 (diff) | |
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.
Diffstat (limited to 'Assistant/TransferrerPool.hs')
| -rw-r--r-- | Assistant/TransferrerPool.hs | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/Assistant/TransferrerPool.hs b/Assistant/TransferrerPool.hs index 69af93773..68ec743f8 100644 --- a/Assistant/TransferrerPool.hs +++ b/Assistant/TransferrerPool.hs @@ -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 |