From f7d63a011745763a12081f35edf5a4c703a2f736 Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Mon, 30 Nov 2015 15:35:53 -0400 Subject: [PATCH] tahoe: Include tahoe capabilities in whereis display. --- Remote/Tahoe.hs | 8 +++++++- debian/changelog | 1 + 2 files changed, 8 insertions(+), 1 deletion(-) diff --git a/Remote/Tahoe.hs b/Remote/Tahoe.hs index 2ced67e308..5c28773ae6 100644 --- a/Remote/Tahoe.hs +++ b/Remote/Tahoe.hs @@ -75,7 +75,7 @@ gen r u c gc = do , lockContent = Nothing , checkPresent = checkKey u hdl , checkPresentCheap = False - , whereisKey = Nothing + , whereisKey = Just (getWhereisKey u) , remoteFsck = Nothing , repairRepo = Nothing , config = c @@ -231,6 +231,12 @@ storeCapability u k cap = setRemoteState u k cap getCapability :: UUID -> Key -> Annex (Maybe Capability) getCapability u k = getRemoteState u k +getWhereisKey :: UUID -> Key -> Annex [String] +getWhereisKey u k = disp <$> getCapability u k + where + disp Nothing = [] + disp (Just c) = [c] + {- tahoe put outputs a single line, containing the capability. -} parsePut :: String -> Maybe Capability parsePut s = case lines s of diff --git a/debian/changelog b/debian/changelog index 55f195dc49..282e54710e 100644 --- a/debian/changelog +++ b/debian/changelog @@ -9,6 +9,7 @@ git-annex (5.20151117) UNRELEASED; urgency=medium * When core.sharedRepository is set, annex object files are not made mode 444, since that prevents a user other than the file owner from locking them. Instead, a mode such as 664 is used in this case. + * tahoe: Include tahoe capabilities in whereis display. -- Joey Hess Mon, 16 Nov 2015 16:49:34 -0400