From 34bdb1436c716431c2fae58908e440fc506878b2 Mon Sep 17 00:00:00 2001
From: Joey Hess <joey@kitenet.net>
Date: Fri, 27 Sep 2013 19:58:48 -0400
Subject: 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)
---
 Crypto.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'Crypto.hs')

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"
-- 
cgit v1.2.3