diff options
| author |  Joey Hess <joeyh@joeyh.name> | 2016-08-03 13:46:20 -0400 |
|---|---|---|
| committer | Joey Hess <joeyh@joeyh.name> | 2016-08-03 13:46:20 -0400 |
| commit | 85cd2dd2a908d9cec848c9827f68f9941f3ff5b8 (patch) | |
| tree | 987e62f90199de80e0e080235225e3aff74de806 /Command/TransferKey.hs | |
| parent | e38ae12506c878b98779465bef167446bff506f9 (diff) | |
remove TransferObserver
unused after last commit
Diffstat (limited to 'Command/TransferKey.hs')
| -rw-r--r-- | Command/TransferKey.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/Command/TransferKey.hs b/Command/TransferKey.hs index 69559f4cf..42a6a9e0d 100644 --- a/Command/TransferKey.hs +++ b/Command/TransferKey.hs @@ -51,7 +51,7 @@ start o key = case fromToOptions o of toPerform :: Key -> AssociatedFile -> Remote -> CommandPerform toPerform key file remote = go Upload file $ - upload (uuid remote) key file forwardRetry noObserver $ \p -> do + upload (uuid remote) key file forwardRetry $ \p -> do ok <- Remote.storeKey remote key file p when ok $ Remote.logStatus remote key InfoPresent @@ -59,7 +59,7 @@ toPerform key file remote = go Upload file $ fromPerform :: Key -> AssociatedFile -> Remote -> CommandPerform fromPerform key file remote = go Upload file $ - download (uuid remote) key file forwardRetry noObserver $ \p -> + download (uuid remote) key file forwardRetry $ \p -> getViaTmp (RemoteVerify remote) key $ \t -> Remote.retrieveKeyFile remote key file t p |