tabs
This commit is contained in:
parent
a51f1a4ee4
commit
2b9f3cc175
1 changed files with 1 additions and 1 deletions
|
@ -143,7 +143,7 @@ cipherKey c k = fmap make <$> remoteCipher c
|
||||||
where
|
where
|
||||||
make ciphertext = (cipContent ciphertext, encryptKey mac ciphertext k)
|
make ciphertext = (cipContent ciphertext, encryptKey mac ciphertext k)
|
||||||
cipContent
|
cipContent
|
||||||
| M.lookup "encryption" c /= Just "pubkey" = id
|
| M.lookup "encryption" c /= Just "pubkey" = id
|
||||||
| otherwise = const $ Cipher ""
|
| otherwise = const $ Cipher ""
|
||||||
mac = fromMaybe defaultMac $ M.lookup "mac" c >>= readMac
|
mac = fromMaybe defaultMac $ M.lookup "mac" c >>= readMac
|
||||||
|
|
||||||
|
|
Loading…
Add table
Reference in a new issue