diff options
Diffstat (limited to 'Assistant/Threads/Transferrer.hs')
| -rw-r--r-- | Assistant/Threads/Transferrer.hs | 16 |
1 files changed, 11 insertions, 5 deletions
diff --git a/Assistant/Threads/Transferrer.hs b/Assistant/Threads/Transferrer.hs index d8212768a..e75b5acae 100644 --- a/Assistant/Threads/Transferrer.hs +++ b/Assistant/Threads/Transferrer.hs @@ -35,9 +35,13 @@ transfererThread = namedThread "Transferrer" $ do {- Skip transfers that are already running. -} notrunning = isNothing . startedTime -{- By the time this is called, the daemonstatus's transfer map should +{- By the time this is called, the daemonstatus's currentTransfers map should - already have been updated to include the transfer. -} -startTransfer :: FilePath -> Transfer -> TransferInfo -> Assistant (Maybe (Transfer, TransferInfo, Assistant ())) +startTransfer + :: FilePath + -> Transfer + -> TransferInfo + -> Assistant (Maybe (Transfer, TransferInfo, Assistant ())) startTransfer program t info = case (transferRemote info, associatedFile info) of (Just remote, Just file) -> ifM (liftAnnex $ shouldTransfer t info) ( do @@ -45,7 +49,8 @@ startTransfer program t info = case (transferRemote info, associatedFile info) o notifyTransfer return $ Just (t, info, transferprocess remote file) , do - debug [ "Skipping unnecessary transfer:" , describeTransfer t info ] + debug [ "Skipping unnecessary transfer:", + describeTransfer t info ] void $ removeTransfer t finishedTransfer t (Just info) return Nothing @@ -57,8 +62,9 @@ startTransfer program t info = case (transferRemote info, associatedFile info) o transferprocess remote file = void $ do (_, _, _, pid) - <- liftIO $ createProcess (proc program $ toCommand params) - { create_group = True } + <- liftIO $ createProcess + (proc program $ toCommand params) + { create_group = True } {- Alerts are only shown for successful transfers. - Transfers can temporarily fail for many reasons, - so there's no point in bothering the user about |