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)

1 files changed, 1 insertions, 1 deletions

diff --git a/Git/LsFiles.hs b/Git/LsFiles.hs
index 8a5d4bd6a..d58fe162b 100644
--- a/Git/LsFiles.hs
+++ b/Git/LsFiles.hs
@@ -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. -}