bf460a0a98
Many functions took the repo as their first parameter. Changing it consistently to be the last parameter allows doing some useful things with currying, that reduce boilerplate. In particular, g <- gitRepo is almost never needed now, instead use inRepo to run an IO action in the repo, and fromRepo to get a value from the repo. This also provides more opportunities to use monadic and applicative combinators.
70 lines
2.3 KiB
Haskell
70 lines
2.3 KiB
Haskell
{- git ls-files interface
|
|
-
|
|
- Copyright 2010 Joey Hess <joey@kitenet.net>
|
|
-
|
|
- Licensed under the GNU GPL version 3 or higher.
|
|
-}
|
|
|
|
module Git.LsFiles (
|
|
inRepo,
|
|
notInRepo,
|
|
staged,
|
|
stagedNotDeleted,
|
|
changedUnstaged,
|
|
typeChanged,
|
|
typeChangedStaged,
|
|
) where
|
|
|
|
import Git
|
|
import Utility.SafeCommand
|
|
|
|
{- Scans for files that are checked into git at the specified locations. -}
|
|
inRepo :: [FilePath] -> Repo -> IO [FilePath]
|
|
inRepo l repo = pipeNullSplit (Params "ls-files --cached -z --" : map File l) repo
|
|
|
|
{- Scans for files at the specified locations that are not checked into git. -}
|
|
notInRepo :: Bool -> [FilePath] -> Repo -> IO [FilePath]
|
|
notInRepo include_ignored l repo = pipeNullSplit params repo
|
|
where
|
|
params = [Params "ls-files --others"] ++ exclude ++
|
|
[Params "-z --"] ++ map File l
|
|
exclude
|
|
| include_ignored = []
|
|
| otherwise = [Param "--exclude-standard"]
|
|
|
|
{- Returns a list of all files that are staged for commit. -}
|
|
staged :: [FilePath] -> Repo -> IO [FilePath]
|
|
staged = staged' []
|
|
|
|
{- Returns a list of the files, staged for commit, that are being added,
|
|
- moved, or changed (but not deleted), from the specified locations. -}
|
|
stagedNotDeleted :: [FilePath] -> Repo -> IO [FilePath]
|
|
stagedNotDeleted = staged' [Param "--diff-filter=ACMRT"]
|
|
|
|
staged' :: [CommandParam] -> [FilePath] -> Repo -> IO [FilePath]
|
|
staged' middle l = pipeNullSplit $ start ++ middle ++ end
|
|
where
|
|
start = [Params "diff --cached --name-only -z"]
|
|
end = Param "--" : map File l
|
|
|
|
{- Returns a list of files that have unstaged changes. -}
|
|
changedUnstaged :: [FilePath] -> Repo -> IO [FilePath]
|
|
changedUnstaged l = pipeNullSplit params
|
|
where
|
|
params = 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. -}
|
|
typeChangedStaged :: [FilePath] -> Repo -> IO [FilePath]
|
|
typeChangedStaged = typeChanged' [Param "--cached"]
|
|
|
|
{- Returns a list of the files in the specified locations whose type has
|
|
- changed. Files only staged for commit will not be included. -}
|
|
typeChanged :: [FilePath] -> Repo -> IO [FilePath]
|
|
typeChanged = typeChanged' []
|
|
|
|
typeChanged' :: [CommandParam] -> [FilePath] -> Repo -> IO [FilePath]
|
|
typeChanged' middle l = pipeNullSplit $ start ++ middle ++ end
|
|
where
|
|
start = [Params "diff --name-only --diff-filter=T -z"]
|
|
end = Param "--" : map File l
|