info: Fix display of the encryption value. (Some debugging junk had crept in.)
This commit is contained in:
parent
e520341500
commit
9050788b66
2 changed files with 3 additions and 1 deletions
|
@ -36,6 +36,8 @@ git-annex (8.20200221) UNRELEASED; urgency=medium
|
||||||
of an IP address to be used, while denying use of other ports.
|
of an IP address to be used, while denying use of other ports.
|
||||||
* Bugfix to getting content from an export remote with -J, when the
|
* Bugfix to getting content from an export remote with -J, when the
|
||||||
export database was not yet populated.
|
export database was not yet populated.
|
||||||
|
* info: Fix display of the encryption value.
|
||||||
|
(Some debugging junk had crept in.)
|
||||||
|
|
||||||
-- Joey Hess <id@joeyh.name> Wed, 19 Feb 2020 12:48:58 -0400
|
-- Joey Hess <id@joeyh.name> Wed, 19 Feb 2020 12:48:58 -0400
|
||||||
|
|
||||||
|
|
|
@ -284,7 +284,7 @@ isEncrypted = isJust . extractCipher
|
||||||
|
|
||||||
describeEncryption :: ParsedRemoteConfig -> String
|
describeEncryption :: ParsedRemoteConfig -> String
|
||||||
describeEncryption c = case extractCipher c of
|
describeEncryption c = case extractCipher c of
|
||||||
Nothing -> "none" ++ show (getRemoteConfigValue cipherField c :: Maybe String) ++ show (M.keys c)
|
Nothing -> "none"
|
||||||
Just cip -> nameCipher cip ++ " (" ++ describeCipher cip ++ ")"
|
Just cip -> nameCipher cip ++ " (" ++ describeCipher cip ++ ")"
|
||||||
|
|
||||||
nameCipher :: StorableCipher -> String
|
nameCipher :: StorableCipher -> String
|
||||||
|
|
Loading…
Add table
Add a link
Reference in a new issue