diff options
author | Joey Hess <joey@kitenet.net> | 2011-07-15 03:12:05 -0400 |
---|---|---|
committer | Joey Hess <joey@kitenet.net> | 2011-07-15 03:12:05 -0400 |
commit | e78475737636a5d1e0d0a36b475c300cc7bb56cc (patch) | |
tree | 1d88de569e951b66ff5321eefaec49ad4b33bf89 /Git/LsFiles.hs | |
parent | 9bb797c0eae3c9d2f119a734762a6d5fa7321a80 (diff) |
hlint tweaks
Did all sources except Remotes/* and Command/*
Diffstat (limited to 'Git/LsFiles.hs')
-rw-r--r-- | Git/LsFiles.hs | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/Git/LsFiles.hs b/Git/LsFiles.hs index b88c9144e..23b383a09 100644 --- a/Git/LsFiles.hs +++ b/Git/LsFiles.hs @@ -21,7 +21,7 @@ import Utility {- Scans for files that are checked into git at the specified locations. -} inRepo :: Repo -> [FilePath] -> IO [FilePath] inRepo repo l = pipeNullSplit repo $ - [Params "ls-files --cached -z --"] ++ map File l + Params "ls-files --cached -z --" : map File l {- Scans for files at the specified locations that are not checked into - git. -} @@ -44,12 +44,12 @@ staged' :: Repo -> [FilePath] -> [CommandParam] -> IO [FilePath] staged' repo l middle = pipeNullSplit repo $ start ++ middle ++ end where start = [Params "diff --cached --name-only -z"] - end = [Param "--"] ++ map File l + end = Param "--" : map File l {- Returns a list of files that have unstaged changes. -} changedUnstaged :: Repo -> [FilePath] -> IO [FilePath] changedUnstaged repo l = pipeNullSplit repo $ - [Params "diff --name-only -z --"] ++ map File l + Params "diff --name-only -z --" : map File l {- Returns a list of the files in the specified locations that are staged - for commit, and whose type has changed. -} @@ -65,4 +65,4 @@ typeChanged' :: Repo -> [FilePath] -> [CommandParam] -> IO [FilePath] typeChanged' repo l middle = pipeNullSplit repo $ start ++ middle ++ end where start = [Params "diff --name-only --diff-filter=T -z"] - end = [Param "--"] ++ map File l + end = Param "--" : map File l |