summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--Remote/Helper/Encryptable.hs5
1 files changed, 3 insertions, 2 deletions
diff --git a/Remote/Helper/Encryptable.hs b/Remote/Helper/Encryptable.hs
index 5c6d70e9b..22e1c9fc0 100644
--- a/Remote/Helper/Encryptable.hs
+++ b/Remote/Helper/Encryptable.hs
@@ -35,12 +35,13 @@ encryptionSetup c = case (M.lookup "encryption" c, extractCipher c) of
=<< highRandomQuality
(Just keyid, Nothing) -> use "encryption setup" . genEncryptedCipher keyid
=<< highRandomQuality
- (Just keyid, Just v) -> use "encryption updated" $ updateEncryptedCipher keyid v
+ (Just keyid, Just v) -> use "encryption update" $ updateEncryptedCipher keyid v
where
cannotchange = error "Cannot change encryption type of existing remote."
use m a = do
+ showNote m
cipher <- liftIO a
- showNote $ m ++ " " ++ describeCipher cipher
+ showNote $ describeCipher cipher
return $ M.delete "encryption" $ M.delete "highRandomQuality" $
storeCipher c cipher
highRandomQuality =