aboutsummaryrefslogtreecommitdiff
path: root/Command/Info.hs
diff options
context:
space:
mode:
authorGravatar Joey Hess <joeyh@joeyh.name>2016-02-19 15:16:52 -0400
committerGravatar Joey Hess <joeyh@joeyh.name>2016-02-19 15:16:52 -0400
commitac44d32ce0d67b2eb7f1e5ae814affa8399a682d (patch)
treeffaaf7293f1b84f401178e7bc50e60f19147e374 /Command/Info.hs
parent3a1e7bbc58363b8b9ef223a3fdc0f87db8b020f5 (diff)
info: Mention when run in a dead repository.
Diffstat (limited to 'Command/Info.hs')
-rw-r--r--Command/Info.hs4
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)