diff options
author | Joey Hess <joeyh@joeyh.name> | 2016-02-19 15:16:52 -0400 |
---|---|---|
committer | Joey Hess <joeyh@joeyh.name> | 2016-02-19 15:16:52 -0400 |
commit | ac44d32ce0d67b2eb7f1e5ae814affa8399a682d (patch) | |
tree | ffaaf7293f1b84f401178e7bc50e60f19147e374 /Command/Info.hs | |
parent | 3a1e7bbc58363b8b9ef223a3fdc0f87db8b020f5 (diff) |
info: Mention when run in a dead repository.
Diffstat (limited to 'Command/Info.hs')
-rw-r--r-- | Command/Info.hs | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/Command/Info.hs b/Command/Info.hs index ede61a369..05d6a01d3 100644 --- a/Command/Info.hs +++ b/Command/Info.hs @@ -22,6 +22,7 @@ import qualified Types.Remote as Remote import Utility.DataUnits import Utility.DiskFree import Annex.Content +import Annex.UUID import Logs.UUID import Logs.Trust import Logs.Location @@ -111,6 +112,9 @@ start o ps = do globalInfo :: InfoOptions -> Annex () globalInfo o = do + u <- getUUID + whenM ((==) DeadTrusted <$> lookupTrust u) $ + earlyWarning "Warning: This repository is currently marked as dead." stats <- selStats global_fast_stats global_slow_stats showCustom "info" $ do evalStateT (mapM_ showStat stats) (emptyStatInfo o) |