refactor
This commit is contained in:
parent
f4ca592cd0
commit
c58d553265
2 changed files with 10 additions and 6 deletions
|
@ -24,6 +24,7 @@ module Remote (
|
|||
remoteMap,
|
||||
uuidDescriptions,
|
||||
byName,
|
||||
byCost,
|
||||
prettyPrintUUIDs,
|
||||
prettyListUUIDs,
|
||||
remotesWithUUID,
|
||||
|
@ -224,3 +225,10 @@ forceTrust level remotename = do
|
|||
- on the remote, but this cannot always be relied on. -}
|
||||
logStatus :: Remote -> Key -> LogStatus -> Annex ()
|
||||
logStatus remote key = logChange key (uuid remote)
|
||||
|
||||
{- Orders remotes by cost, with ones with the lowest cost grouped together. -}
|
||||
byCost :: [Remote] -> [[Remote]]
|
||||
byCost = map snd . sort . M.toList . costmap
|
||||
where
|
||||
costmap = M.fromListWith (++) . map costpair
|
||||
costpair r = (cost r, [r])
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue