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

fix sorting

Browse source
This commit is contained in:
Joey Hess 2013-03-14 14:15:35 -04:00
parent a336a7fc1b
commit 7289f92522
1 changed files with 2 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
Assistant/WebApp/RepoList.hs
View file

@ -132,7 +132,8 @@ repoList reposelector
syncing <- S.fromList . syncRemotes
<$> liftAssistant getDaemonStatus
liftAnnex $ do
rs <- filter wantedrepo <$> Remote.enabledRemoteList
rs <- filter wantedrepo . concat . Remote.byCost
<$> Remote.enabledRemoteList
let us = map Remote.uuid rs
let make r = if r `S.member` syncing
then mkSyncingRepoActions $ Remote.uuid r