summaryrefslogtreecommitdiff
path: root/Command
diff options
context:
space:
mode:
authorGravatar Joey Hess <joey@kitenet.net>2014-10-28 16:03:57 -0400
committerGravatar Joey Hess <joey@kitenet.net>2014-10-28 16:03:57 -0400
commit3d9a43bda29fe9ac8c888443508db3ebd93062da (patch)
tree635bed15636ea2f62a3bdb7a92bf0b2296143cf5 /Command
parentd939f257fbd0af894213ed91ff3cc104377cc3b3 (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.hs3
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