diff options
| author |  Joey Hess <joeyh@joeyh.name> | 2015-07-09 16:05:45 -0400 |
|---|---|---|
| committer | Joey Hess <joeyh@joeyh.name> | 2015-07-09 16:05:45 -0400 |
| commit | 525e04af35bb588b4f8a8721cfa77b2b285ac914 (patch) | |
| tree | 9d00a7d7066a8ad30c9e6313706d47de2609f82a /Command/TransferKeys.hs | |
| parent | 87896574f32be5aa1636facc494faeab34cd0845 (diff) | |
wip
Diffstat (limited to 'Command/TransferKeys.hs')
| -rw-r--r-- | Command/TransferKeys.hs | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/Command/TransferKeys.hs b/Command/TransferKeys.hs index 755a7ef3e..67f201024 100644 --- a/Command/TransferKeys.hs +++ b/Command/TransferKeys.hs @@ -45,7 +45,7 @@ start = do download (Remote.uuid remote) key file forwardRetry observer $ \p -> getViaTmp key $ \t -> Remote.retrieveKeyFile remote key file t p - observer False t info = recordFailedTransfer t info + observer False t tinfo = recordFailedTransfer t tinfo observer True _ _ = noop runRequests @@ -80,14 +80,14 @@ runRequests readh writeh a = do hFlush writeh sendRequest :: Transfer -> TransferInfo -> Handle -> IO () -sendRequest t info h = do +sendRequest t tinfo h = do hPutStr h $ intercalate fieldSep [ serialize (transferDirection t) , maybe (serialize (fromUUID (transferUUID t))) (serialize . Remote.name) - (transferRemote info) + (transferRemote tinfo) , serialize (transferKey t) - , serialize (associatedFile info) + , serialize (associatedFile tinfo) , "" -- adds a trailing null ] hFlush h |