diff options
author | Joey Hess <joeyh@joeyh.name> | 2016-05-23 17:51:15 -0400 |
---|---|---|
committer | Joey Hess <joeyh@joeyh.name> | 2016-05-23 17:51:15 -0400 |
commit | 9001b7664797792d69e329b041b04465d7f27473 (patch) | |
tree | cd258a8a289c79d4aeaaa7b01d8bdb24ead31f80 /Crypto.hs | |
parent | 8d90c4160e06309bef061cbd491bb1088296ebad (diff) |
cleanup
Diffstat (limited to 'Crypto.hs')
-rw-r--r-- | Crypto.hs | 6 |
1 files changed, 3 insertions, 3 deletions
@@ -197,10 +197,10 @@ encrypt cmd c cipher = case cipher of - Reader action. -} decrypt :: (MonadIO m, MonadMask m, LensGpgEncParams c) => Gpg.GpgCmd -> c -> Cipher -> Feeder -> Reader m a -> m a decrypt cmd c cipher = case cipher of - Cipher{} -> Gpg.feedRead cmd params' $ cipherPassphrase cipher - MacOnlyCipher{} -> Gpg.pipeLazy cmd params' + Cipher{} -> Gpg.feedRead cmd params $ cipherPassphrase cipher + MacOnlyCipher{} -> Gpg.pipeLazy cmd params where - params' = Param "--decrypt" : getGpgDecParams c + params = Param "--decrypt" : getGpgDecParams c macWithCipher :: Mac -> Cipher -> String -> String macWithCipher mac c = macWithCipher' mac (cipherMac c) |