diff options
| author |  Joey Hess <joey@kitenet.net> | 2014-10-28 16:03:57 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2014-10-28 16:03:57 -0400 |
| commit | 3d9a43bda29fe9ac8c888443508db3ebd93062da (patch) | |
| tree | 635bed15636ea2f62a3bdb7a92bf0b2296143cf5 /Command | |
| parent | d939f257fbd0af894213ed91ff3cc104377cc3b3 (diff) | |
info: avoid strange display of here repo when it has NoUUID
This happens when info is run in a git repo before git annex init.
Diffstat (limited to 'Command')
| -rw-r--r-- | Command/Info.hs | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/Command/Info.hs b/Command/Info.hs index 96b7eb6d7..9356830e0 100644 --- a/Command/Info.hs +++ b/Command/Info.hs @@ -221,7 +221,8 @@ repository_mode = simpleStat "repository mode" $ lift $ remote_list :: TrustLevel -> Stat 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 s <- prettyPrintUUIDs n rs return $ if null s then "0" else show (length rs) ++ "\n" ++ beginning s |