summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorGravatar Joey Hess <joey@kitenet.net>2014-08-16 15:19:37 -0400
committerGravatar Joey Hess <joey@kitenet.net>2014-08-16 15:19:37 -0400
commit44a179b89c8804d5bc1760cb6bffa14aa20317ef (patch)
tree8f59a034e0981322e34b518d5331fe923a5df1a2
parent5f95308c182e9d6807cffdf8a5043cb7325f15a6 (diff)
missing peice
-rw-r--r--Command/SendKey.hs2
1 files changed, 1 insertions, 1 deletions
diff --git a/Command/SendKey.hs b/Command/SendKey.hs
index 6b5127aca..13e585fc6 100644
--- a/Command/SendKey.hs
+++ b/Command/SendKey.hs
@@ -44,7 +44,7 @@ fieldTransfer :: Direction -> Key -> (MeterUpdate -> Annex Bool) -> CommandStart
fieldTransfer direction key a = do
afile <- Fields.getField Fields.associatedFile
ok <- maybe (a $ const noop)
- (\u -> runTransfer (Transfer direction (toUUID u) key) afile noRetry a)
+ (\u -> runner (Transfer direction (toUUID u) key) afile noRetry a)
=<< Fields.getField Fields.remoteUUID
liftIO $ exitBool ok
where