diff options
author | 2011-06-30 13:16:57 -0400 | |
---|---|---|
committer | 2011-06-30 13:21:39 -0400 | |
commit | f6063a094ec02caec314b42dc05f2f0595ae0ce4 (patch) | |
tree | 624717470d70b9119361803b4656dd1c79573354 /Git/LsFiles.hs | |
parent | 5fe02f280726442496303859e83f9ce1c48be0cb (diff) |
renamed GitRepo to Git
It was always imported qualified as Git anyway
Diffstat (limited to 'Git/LsFiles.hs')
-rw-r--r-- | Git/LsFiles.hs | 68 |
1 files changed, 68 insertions, 0 deletions
diff --git a/Git/LsFiles.hs b/Git/LsFiles.hs new file mode 100644 index 000000000..b88c9144e --- /dev/null +++ b/Git/LsFiles.hs @@ -0,0 +1,68 @@ +{- 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 + +{- 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 + +{- Scans for files at the specified locations that are not checked into + - git. -} +notInRepo :: Repo -> Bool -> [FilePath] -> IO [FilePath] +notInRepo repo include_ignored l = + pipeNullSplit repo $ [Params "ls-files --others"]++exclude++[Params "-z --"] ++ map File l + where + exclude = if include_ignored then [] else [Param "--exclude-standard"] + +{- Returns a list of all files that are staged for commit. -} +staged :: Repo -> [FilePath] -> IO [FilePath] +staged repo l = staged' repo l [] + +{- Returns a list of the files, staged for commit, that are being added, + - moved, or changed (but not deleted), from the specified locations. -} +stagedNotDeleted :: Repo -> [FilePath] -> IO [FilePath] +stagedNotDeleted repo l = staged' repo l [Param "--diff-filter=ACMRT"] + +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 + +{- 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 + +{- Returns a list of the files in the specified locations that are staged + - for commit, and whose type has changed. -} +typeChangedStaged :: Repo -> [FilePath] -> IO [FilePath] +typeChangedStaged repo l = typeChanged' repo l [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 :: Repo -> [FilePath] -> IO [FilePath] +typeChanged repo l = typeChanged' repo l [] + +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 |