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

info: avoid strange display of here repo when it has NoUUID

Browse source 
This happens when info is run in a git repo before git annex init.
This commit is contained in:
Joey Hess 2014-10-28 16:03:57 -04:00
parent c6f0a65832
commit 2d77bb310f
1 changed files with 2 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

3
Command/Info.hs
View file

@ -221,7 +221,8 @@ repository_mode = simpleStat "repository mode" $ lift $
remote_list :: TrustLevel -> Stat remote_list :: TrustLevel -> Stat
remote_list level = stat n $ nojson $ lift $ do remote_list level = stat n $ nojson $ lift $ do
us <- M.keys <$> (M.union <$> uuidMap <*> remoteMap Remote.name) us <- filter (/= NoUUID) . M.keys
<$> (M.union <$> uuidMap <*> remoteMap Remote.name)
rs <- fst <$> trustPartition level us rs <- fst <$> trustPartition level us
s <- prettyPrintUUIDs n rs s <- prettyPrintUUIDs n rs
return $ if null s then "0" else show (length rs) ++ "\n" ++ beginning s return $ if null s then "0" else show (length rs) ++ "\n" ++ beginning s