mirrors/git-annex
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages 1 Wiki Activity Actions

wrote transfer thread

Browse source 
finally!
This commit is contained in:
Joey Hess 2012-07-05 14:34:20 -06:00
parent e8df726d07
commit 71b5ad8398
7 changed files with 136 additions and 20 deletions
Download patch file Download diff file Expand all files Collapse all files

4
Command/Status.hs
View file

@ -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