diff options
| author |  Joey Hess <joeyh@joeyh.name> | 2015-10-01 13:28:49 -0400 |
|---|---|---|
| committer | Joey Hess <joeyh@joeyh.name> | 2015-10-01 13:29:17 -0400 |
| commit | e3969aeb3c1d8a91a31d4da31097ab5c59436774 (patch) | |
| tree | 7fd39a284fa2d7ed37a3aab5edbbe5f80cce76d0 /Command/TestRemote.hs | |
| parent | 5be958bddc3afeabe51bd9da598682617ba4e0e7 (diff) | |
rename fsckKey to verifyKeyContent
No behavior changes.
Diffstat (limited to 'Command/TestRemote.hs')
| -rw-r--r-- | Command/TestRemote.hs | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/Command/TestRemote.hs b/Command/TestRemote.hs index e51dcaeb3..fbe83f2db 100644 --- a/Command/TestRemote.hs +++ b/Command/TestRemote.hs @@ -14,7 +14,7 @@ import qualified Remote import qualified Types.Remote as Remote import Types import Types.Key (key2file, keyBackendName, keySize) -import Types.Backend (getKey, fsckKey) +import Types.Backend (getKey, verifyKeyContent) import Types.KeySource import Annex.Content import Backend @@ -156,9 +156,9 @@ test st r k = (== Right b) <$> Remote.hasKey r k fsck = case maybeLookupBackendName (keyBackendName k) of Nothing -> return True - Just b -> case fsckKey b of + Just b -> case verifyKeyContent b of Nothing -> return True - Just fscker -> fscker k (key2file k) + Just verifier -> verifier k (key2file k) get = getViaTmp k $ \dest -> Remote.retrieveKeyFile r k Nothing dest nullMeterUpdate store = Remote.storeKey r k Nothing nullMeterUpdate |