From 9001b7664797792d69e329b041b04465d7f27473 Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Mon, 23 May 2016 17:51:15 -0400 Subject: cleanup --- Crypto.hs | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) (limited to 'Crypto.hs') diff --git a/Crypto.hs b/Crypto.hs index fd6da07ee..f3d6f5e5a 100644 --- a/Crypto.hs +++ b/Crypto.hs @@ -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) -- cgit v1.2.3