remove *>=> and >=*> ; use <$$> instead

I forgot I had <$$> hidden away in Utility.Applicative.
It allows doing the same kind of currying as does >=*>
and I found using it made the code more readable for me.

(*>=> was not used)

1 files changed, 1 insertions, 1 deletions

diff --git a/Crypto.hs b/Crypto.hs
index f99f8cbf1..371bbcaf1 100644
--- a/Crypto.hs
+++ b/Crypto.hs
@@ -102,7 +102,7 @@ updateEncryptedCipher newkeys encipher@(EncryptedCipher _ variant (KeyIds ks)) =
 	cipher <- decryptCipher encipher
 	encryptCipher cipher variant $ KeyIds ks'
   where
-	listKeyIds = mapM (Gpg.findPubKeys >=*> keyIds) >=*> concat
+	listKeyIds = concat <$$> mapM (keyIds <$$> Gpg.findPubKeys)
 
 describeCipher :: StorableCipher -> String
 describeCipher (SharedCipher _) = "shared cipher"