remove TransferObserver
unused after last commit
This commit is contained in:
parent
f461bcae4b
commit
10ddf2c3bd
8 changed files with 23 additions and 32 deletions
|
@ -35,13 +35,13 @@ start = do
|
|||
where
|
||||
runner (TransferRequest direction remote key file)
|
||||
| direction == Upload = notifyTransfer direction file $
|
||||
upload (Remote.uuid remote) key file forwardRetry noObserver $ \p -> do
|
||||
upload (Remote.uuid remote) key file forwardRetry $ \p -> do
|
||||
ok <- Remote.storeKey remote key file p
|
||||
when ok $
|
||||
Remote.logStatus remote key InfoPresent
|
||||
return ok
|
||||
| otherwise = notifyTransfer direction file $
|
||||
download (Remote.uuid remote) key file forwardRetry noObserver $ \p ->
|
||||
download (Remote.uuid remote) key file forwardRetry $ \p ->
|
||||
getViaTmp (RemoteVerify remote) key $ \t -> do
|
||||
r <- Remote.retrieveKeyFile remote key file t p
|
||||
-- Make sure we get the current
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue