diff options
| author |  Joey Hess <joey@kitenet.net> | 2013-09-27 19:58:48 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2013-09-27 19:58:48 -0400 |
| commit | 34bdb1436c716431c2fae58908e440fc506878b2 (patch) | |
| tree | e46d5c1a0392cc008755bcd28455cd1494e6490a /Utility/Gpg.hs | |
| parent | cbf810a421901e76ee2d3e18592fb4d39de851a6 (diff) | |
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)
Diffstat (limited to 'Utility/Gpg.hs')
| -rw-r--r-- | Utility/Gpg.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/Utility/Gpg.hs b/Utility/Gpg.hs index f9b3d55e8..a2baa74dc 100644 --- a/Utility/Gpg.hs +++ b/Utility/Gpg.hs @@ -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 |