mirrors/git-annex
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages 1 Wiki Activity Actions

finished hlint pass

Browse source
This commit is contained in:
Joey Hess 2011-07-15 12:47:14 -04:00
parent 185f0b6870
commit 6c396a256c
29 changed files with 114 additions and 115 deletions
Download patch file Download diff file Expand all files Collapse all files

4
Remote/Encryptable.hs
View file

@ -56,10 +56,10 @@ encryptableRemote c storeKeyEncrypted retrieveKeyFileEncrypted r =
where
store k = cip k >>= maybe
(storeKey r k)
(\x -> storeKeyEncrypted x k)
(`storeKeyEncrypted` k)
retrieve k f = cip k >>= maybe
(retrieveKeyFile r k f)
(\x -> retrieveKeyFileEncrypted x f)
(`retrieveKeyFileEncrypted` f)
withkey a k = cip k >>= maybe (a k) (a . snd)
cip = cipherKey c