summaryrefslogtreecommitdiff
path: root/Logs/Transfer.hs
diff options
context:
space:
mode:
authorGravatar Joey Hess <joey@kitenet.net>2012-07-18 19:13:56 -0400
committerGravatar Joey Hess <joey@kitenet.net>2012-07-18 19:15:34 -0400
commitcf47bb3f509ae63ad868b66c0b6f2baecb93e4c7 (patch)
tree60bfdab5cf877c4de206146c65e759f82cdf2e85 /Logs/Transfer.hs
parenteea0a3616cd1cbaf033649c11a5c2b650b6b632f (diff)
run file transfers in threads, not processes
This should fix OSX/BSD issues with not noticing transfer information files with kqueue. Now that threads are used, the thread can manage the transfer slot allocation and deallocation by itself; much cleaner.
Diffstat (limited to 'Logs/Transfer.hs')
-rw-r--r--Logs/Transfer.hs3
1 files changed, 0 insertions, 3 deletions
diff --git a/Logs/Transfer.hs b/Logs/Transfer.hs
index f74d128dc..1e3d0abdb 100644
--- a/Logs/Transfer.hs
+++ b/Logs/Transfer.hs
@@ -43,7 +43,6 @@ data TransferInfo = TransferInfo
, transferRemote :: Maybe Remote
, bytesComplete :: Maybe Integer
, associatedFile :: Maybe FilePath
- , shouldWait :: Bool
}
deriving (Show, Eq, Ord)
@@ -87,7 +86,6 @@ transfer t file a = do
<*> pure Nothing -- not 0; transfer may be resuming
<*> pure Nothing
<*> pure file
- <*> pure False
bracketIO (prep tfile mode info) (cleanup tfile) a
where
prep tfile mode info = do
@@ -180,7 +178,6 @@ readTransferInfo pid s =
<*> pure Nothing
<*> pure Nothing
<*> pure (if null filename then Nothing else Just filename)
- <*> pure False
_ -> Nothing
where
(bits, filebits) = splitAt 1 $ lines s