diff options
author | 2013-09-27 19:58:48 -0400 | |
---|---|---|
committer | 2013-09-27 19:58:48 -0400 | |
commit | 34bdb1436c716431c2fae58908e440fc506878b2 (patch) | |
tree | e46d5c1a0392cc008755bcd28455cd1494e6490a /Git/LsFiles.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 'Git/LsFiles.hs')
-rw-r--r-- | Git/LsFiles.hs | 2 |
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. -} |