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:
parent
c6032b0dab
commit
57d49a6d04
6 changed files with 7 additions and 18 deletions
|
@ -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
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue