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)
This commit is contained in:
Joey Hess 2013-09-27 19:58:48 -04:00
parent c6032b0dab
commit 57d49a6d04
6 changed files with 7 additions and 18 deletions

View file

@ -369,7 +369,7 @@ checkGpgPackets keys str = do
(Just (KeyIds ks), ls, []) -> do
-- Find the master key associated with the
-- encryption subkey.
ks' <- concat <$> mapM (findPubKeys >=*> keyIds)
ks' <- concat <$> mapM (keyIds <$$> findPubKeys)
[ k | k:"keyid":_ <- map (reverse . words) ls ]
return $ sort (nub ks) == sort (nub ks')
_ -> return False