add tmp flag parameter to retrieveKeyFile
This commit is contained in:
parent
94aa6b42b5
commit
06b0cb6224
12 changed files with 29 additions and 27 deletions
|
@ -55,8 +55,8 @@ encryptableRemote c storeKeyEncrypted retrieveKeyFileEncrypted r =
|
|||
store k = cip k >>= maybe
|
||||
(storeKey r k)
|
||||
(`storeKeyEncrypted` k)
|
||||
retrieve k f = cip k >>= maybe
|
||||
(retrieveKeyFile r k f)
|
||||
retrieve k t f = cip k >>= maybe
|
||||
(retrieveKeyFile r k t f)
|
||||
(`retrieveKeyFileEncrypted` f)
|
||||
withkey a k = cip k >>= maybe (a k) (a . snd)
|
||||
cip = cipherKey c
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue