diff options
| author |  Joey Hess <joey@kitenet.net> | 2012-07-05 14:34:20 -0600 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2012-07-05 14:34:20 -0600 |
| commit | 71b5ad8398c4d86d5e9b993e175b48f2c5f0861d (patch) | |
| tree | 46bd1db5caa16256b948146ecd2d61057bed44fb /Command/Status.hs | |
| parent | e8df726d07657c82c012a02697282c2bc642e742 (diff) | |
wrote transfer thread
finally!
Diffstat (limited to 'Command/Status.hs')
| -rw-r--r-- | Command/Status.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/Command/Status.hs b/Command/Status.hs index eff21bb50..2d63c525c 100644 --- a/Command/Status.hs +++ b/Command/Status.hs @@ -186,8 +186,8 @@ transfer_list = stat "transfers in progress" $ nojson $ lift $ do [ show (transferDirection t) ++ "ing" , fromMaybe (show $ transferKey t) (associatedFile i) , if transferDirection t == Upload then "to" else "from" - , maybe (fromUUID $ transferRemote t) Remote.name $ - M.lookup (transferRemote t) uuidmap + , maybe (fromUUID $ transferUUID t) Remote.name $ + M.lookup (transferUUID t) uuidmap ] disk_size :: Stat |