diff options
author | 2013-11-07 12:45:59 -0400 | |
---|---|---|
committer | 2013-11-07 12:45:59 -0400 | |
commit | 8aec790a7aefba4dc2e8e0d219d333c12ad585e3 (patch) | |
tree | 3109d87ab24e0a5d39299e6aeba046678b9ccc2b /Command | |
parent | 2119fb1775999da045d24f0a7d43babcf6bd61dc (diff) |
rename status to info, and update docs
Diffstat (limited to 'Command')
-rw-r--r-- | Command/Info.hs (renamed from Command/Status.hs) | 22 |
1 files changed, 11 insertions, 11 deletions
diff --git a/Command/Status.hs b/Command/Info.hs index 44d868f6b..d465f2d84 100644 --- a/Command/Status.hs +++ b/Command/Info.hs @@ -7,7 +7,7 @@ {-# LANGUAGE BangPatterns #-} -module Command.Status where +module Command.Info where import "mtl" Control.Monad.State.Strict import qualified Data.Map as M @@ -70,31 +70,31 @@ data StatInfo = StatInfo type StatState = StateT StatInfo Annex def :: [Command] -def = [noCommit $ command "status" paramPaths seek - SectionQuery "shows status information about the annex"] +def = [noCommit $ command "info" paramPaths seek + SectionQuery "shows general information about the annex"] seek :: [CommandSeek] seek = [withWords start] start :: [FilePath] -> CommandStart start [] = do - globalStatus + globalInfo stop start ps = do - mapM_ localStatus =<< filterM isdir ps + mapM_ localInfo =<< filterM isdir ps stop where isdir = liftIO . catchBoolIO . (isDirectory <$$> getFileStatus) -globalStatus :: Annex () -globalStatus = do +globalInfo :: Annex () +globalInfo = do stats <- selStats global_fast_stats global_slow_stats - showCustom "status" $ do + showCustom "info" $ do evalStateT (mapM_ showStat stats) (StatInfo Nothing Nothing Nothing) return True -localStatus :: FilePath -> Annex () -localStatus dir = showCustom (unwords ["status", dir]) $ do +localInfo :: FilePath -> Annex () +localInfo dir = showCustom (unwords ["info", dir]) $ do stats <- selStats (tostats local_fast_stats) (tostats local_slow_stats) evalStateT (mapM_ showStat stats) =<< getLocalStatInfo dir return True @@ -295,7 +295,7 @@ cachedReferencedData = do put s { referencedData = Just v } return v --- currently only available for local status +-- currently only available for local info cachedNumCopiesStats :: StatState (Maybe NumCopiesStats) cachedNumCopiesStats = numCopiesStats <$> get |