summaryrefslogtreecommitdiff
path: root/Remote/Helper/Encryptable.hs
diff options
context:
space:
mode:
authorGravatar Joey Hess <joey@kitenet.net>2013-04-06 16:14:57 -0400
committerGravatar Joey Hess <joey@kitenet.net>2013-04-06 16:14:57 -0400
commitc5e42b71c8b1a235fc1b692f5617cb39552049ed (patch)
tree670350c2f02e4192aa3c758e6745592765612e92 /Remote/Helper/Encryptable.hs
parenta7f50205bb1ccd41d4a9ab4e11d984e643be755f (diff)
changelog & minor style fixes
Diffstat (limited to 'Remote/Helper/Encryptable.hs')
-rw-r--r--Remote/Helper/Encryptable.hs9
1 files changed, 5 insertions, 4 deletions
diff --git a/Remote/Helper/Encryptable.hs b/Remote/Helper/Encryptable.hs
index ff7d4990b..b52d2e73a 100644
--- a/Remote/Helper/Encryptable.hs
+++ b/Remote/Helper/Encryptable.hs
@@ -32,9 +32,9 @@ encryptionSetup c = case (M.lookup "encryption" c, extractCipher c) of
(Just "shared", Just (EncryptedCipher _ _)) -> cannotchange
(Just _, Just (SharedCipher _)) -> cannotchange
(Just "shared", Nothing) -> use "encryption setup" . genSharedCipher
- =<< highRandomQuality
+ =<< highRandomQuality
(Just keyid, Nothing) -> use "encryption setup" . genEncryptedCipher keyid
- =<< highRandomQuality
+ =<< highRandomQuality
(Just keyid, Just v) -> use "encryption updated" $ updateEncryptedCipher keyid v
where
cannotchange = error "Cannot change encryption type of existing remote."
@@ -43,8 +43,9 @@ encryptionSetup c = case (M.lookup "encryption" c, extractCipher c) of
showNote $ m ++ " " ++ describeCipher cipher
return $ M.delete "encryption" $ M.delete "highRandomQuality" $
storeCipher c cipher
- highRandomQuality = (&&) (maybe True (/="false") (M.lookup "highRandomQuality" c))
- <$> fmap not (Annex.getState Annex.fast)
+ highRandomQuality =
+ (&&) (maybe True ( /= "false") $ M.lookup "highRandomQuality" c)
+ <$> fmap not (Annex.getState Annex.fast)
{- Modifies a Remote to support encryption.
-