diff options
Diffstat (limited to 'Command/Info.hs')
| -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 |