diff --git a/Crypto.hs b/Crypto.hs
index fd6da07ee0..f3d6f5e5a9 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)