status: Include all special remotes in the list of repositories.
Special remotes do not always have a description listed in uuid.log, and such ones were not listed before.
This commit is contained in:
parent
1326bb8635
commit
c50a5fbeb4
5 changed files with 24 additions and 19 deletions
|
@ -16,6 +16,7 @@ module Remote (
|
|||
hasKeyCheap,
|
||||
|
||||
remoteTypes,
|
||||
remoteMap,
|
||||
byName,
|
||||
prettyPrintUUIDs,
|
||||
remotesWithUUID,
|
||||
|
@ -83,6 +84,10 @@ genList = do
|
|||
u <- getRepoUUID r
|
||||
generate t r u (M.lookup u m)
|
||||
|
||||
{- Map of UUIDs of Remotes and their names. -}
|
||||
remoteMap :: Annex (M.Map UUID String)
|
||||
remoteMap = M.fromList . map (\r -> (uuid r, name r)) <$> genList
|
||||
|
||||
{- Looks up a remote by name. (Or by UUID.) Only finds currently configured
|
||||
- git remotes. -}
|
||||
byName :: String -> Annex (Remote Annex)
|
||||
|
@ -139,7 +144,6 @@ prettyPrintUUIDs desc uuids = do
|
|||
| d == n = d
|
||||
| null d = n
|
||||
| otherwise = n ++ " (" ++ d ++ ")"
|
||||
remoteMap = M.fromList . map (\r -> (uuid r, name r)) <$> genList
|
||||
findlog m u = M.findWithDefault "" u m
|
||||
prettify m hereu u
|
||||
| not (null d) = fromUUID u ++ " -- " ++ d
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue