From 7db480af0f944ca0e6c062cd1243c63ad7f878d1 Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Thu, 13 Dec 2012 00:45:27 -0400 Subject: whitespace fixes --- Crypto.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'Crypto.hs') diff --git a/Crypto.hs b/Crypto.hs index fe6c6d5cb..bee793de2 100644 --- a/Crypto.hs +++ b/Crypto.hs @@ -93,7 +93,7 @@ encryptCipher (Cipher c) (KeyIds ks) = do let ks' = nub $ sort ks -- gpg complains about duplicate recipient keyids encipher <- Gpg.pipeStrict ([ Params "--encrypt" ] ++ recipients ks') c return $ EncryptedCipher encipher (KeyIds ks') - where + where recipients l = force_recipients : concatMap (\k -> [Param "--recipient", Param k]) l -- Force gpg to only encrypt to the specified -- cgit v1.2.3