diff options
author | Joey Hess <joey@kitenet.net> | 2013-10-01 20:50:46 -0400 |
---|---|---|
committer | Joey Hess <joey@kitenet.net> | 2013-10-01 20:50:46 -0400 |
commit | 56b5aa56f0fcbf28a532317cb81601bb6c41a114 (patch) | |
tree | f799552cefa80ec15a0ab5c4281f6530dc61cb47 /Command/Status.hs | |
parent | 2d8a1ba354653fb01f9f33ec126ca53d64200acf (diff) |
Moved list of backends and remote types from status to version command.
Diffstat (limited to 'Command/Status.hs')
-rw-r--r-- | Command/Status.hs | 15 |
1 files changed, 1 insertions, 14 deletions
diff --git a/Command/Status.hs b/Command/Status.hs index 8e41a96a9..290ecd586 100644 --- a/Command/Status.hs +++ b/Command/Status.hs @@ -17,8 +17,6 @@ import Data.Ord import System.PosixCompat.Files import Common.Annex -import qualified Types.Backend as B -import qualified Types.Remote as R import qualified Remote import qualified Command.Unused import qualified Git @@ -28,7 +26,6 @@ import Utility.DataUnits import Utility.DiskFree import Annex.Content import Types.Key -import Backend import Logs.UUID import Logs.Trust import Remote @@ -116,9 +113,7 @@ selStats fast_stats slow_stats = do -} global_fast_stats :: [Stat] global_fast_stats = - [ supported_backends - , supported_remote_types - , repository_mode + [ repository_mode , remote_list Trusted , remote_list SemiTrusted , remote_list UnTrusted @@ -171,14 +166,6 @@ showStat s = maybe noop calc =<< s (lift . showHeader) desc lift . showRaw =<< a -supported_backends :: Stat -supported_backends = stat "supported backends" $ json unwords $ - return $ map B.name Backend.list - -supported_remote_types :: Stat -supported_remote_types = stat "supported remote types" $ json unwords $ - return $ map R.typename Remote.remoteTypes - repository_mode :: Stat repository_mode = stat "repository mode" $ json id $ lift $ ifM isDirect |