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

@ -103,7 +103,7 @@ stagedDetails' ps l repo = do
where
(metadata, file) = separate (== '\t') s
(mode, rest) = separate (== ' ') metadata
readmode = headMaybe . readOct >=*> fst
readmode = fst <$$> headMaybe . readOct
{- Returns a list of the files in the specified locations that are staged
- for commit, and whose type has changed. -}