summaryrefslogtreecommitdiff
path: root/Command
diff options
context:
space:
mode:
authorGravatar Joey Hess <joey@kitenet.net>2013-11-07 12:45:59 -0400
committerGravatar Joey Hess <joey@kitenet.net>2013-11-07 12:45:59 -0400
commit8aec790a7aefba4dc2e8e0d219d333c12ad585e3 (patch)
tree3109d87ab24e0a5d39299e6aeba046678b9ccc2b /Command
parent2119fb1775999da045d24f0a7d43babcf6bd61dc (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