diff options
Diffstat (limited to 'Command/TransferKeys.hs')
| -rw-r--r-- | Command/TransferKeys.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/Command/TransferKeys.hs b/Command/TransferKeys.hs index 458fb31c1..9334fd08f 100644 --- a/Command/TransferKeys.hs +++ b/Command/TransferKeys.hs @@ -59,8 +59,8 @@ start readh writeh = do when ok $ Remote.logStatus remote key InfoPresent return ok - | otherwise = download (Remote.uuid remote) key file forwardRetry $ - getViaTmp key $ Remote.retrieveKeyFile remote key file + | otherwise = download (Remote.uuid remote) key file forwardRetry $ \p -> + getViaTmp key $ \t -> Remote.retrieveKeyFile remote key file t p runRequests :: Handle |