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

show direct/indirect mode

Browse source
This commit is contained in:
Joey Hess 2012-12-13 13:48:07 -04:00
parent cfe354eccd
commit cf129c2545
1 changed files with 6 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

6
Command/Status.hs
View file

@ -69,6 +69,7 @@ fast_stats :: [Stat]
fast_stats = fast_stats =
[ supported_backends [ supported_backends
, supported_remote_types , supported_remote_types
, repository_mode
, remote_list Trusted , remote_list Trusted
, remote_list SemiTrusted , remote_list SemiTrusted
, remote_list UnTrusted , remote_list UnTrusted
@ -127,6 +128,11 @@ supported_remote_types :: Stat
supported_remote_types = stat "supported remote types" $ json unwords $ supported_remote_types = stat "supported remote types" $ json unwords $
return $ map R.typename Remote.remoteTypes return $ map R.typename Remote.remoteTypes
repository_mode :: Stat
repository_mode = stat "repository mode" $ json id $ lift $
ifM isDirect
( return "direct", return "indirect" )
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 <- M.keys <$> (M.union <$> uuidMap <*> remoteMap Remote.name)