info: Fix display of the encryption value. (Some debugging junk had crept in.)

diff --git a/CHANGELOG b/CHANGELOG
index 443bdbeaba4f9c22ec26f4a643678760d048b604..c1fa9f78c4363c1085ef6f14cb960ecc8b8427fb 100644 (file)
--- a/CHANGELOG
+++ b/CHANGELOG
@@ -36,6 +36,8 @@ git-annex (8.20200221) UNRELEASED; urgency=medium
     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
     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
 

diff --git a/Remote/Helper/Encryptable.hs b/Remote/Helper/Encryptable.hs
index 33ef848bb7dedfc27389646729de7062c2463fce..e4ae10b352c51e9f7dbd20eee289a4c928af2e0a 100644 (file)
--- a/Remote/Helper/Encryptable.hs
+++ b/Remote/Helper/Encryptable.hs
@@ -284,7 +284,7 @@ isEncrypted = isJust . extractCipher
 
 describeEncryption :: ParsedRemoteConfig -> String
 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 ++ ")"
 
 nameCipher :: StorableCipher -> String