summaryrefslogtreecommitdiff
path: root/Git/LsFiles.hs
diff options
context:
space:
mode:
Diffstat (limited to 'Git/LsFiles.hs')
-rw-r--r--Git/LsFiles.hs2
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. -}