whereis: Prints the urls of files that the web special remote knows about.

This commit is contained in:
Joey Hess 2012-02-14 03:49:48 -04:00
parent 8fbc529d68
commit cb631ce518
12 changed files with 37 additions and 12 deletions

View file

@ -113,7 +113,7 @@ supported_remote_types = stat "supported remote types" $ json unwords $
remote_list :: TrustLevel -> String -> Stat
remote_list level desc = stat n $ nojson $ lift $ do
us <- M.keys <$> (M.union <$> uuidMap <*> remoteMap)
us <- 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