diff options
| -rw-r--r-- | app/History.hs | 22 |
1 files changed, 0 insertions, 22 deletions
diff --git a/app/History.hs b/app/History.hs index 5414927..14724b7 100644 --- a/app/History.hs +++ b/app/History.hs @@ -202,14 +202,6 @@ issueFromIssueEvents issueEvents = _ -> Nothing --- | Gets issues in all files in your current [working --- - tree](https://git-scm.com/docs/gitglossary#Documentation/gitglossary.txt-aiddefworkingtreeaworkingtree) -getIssuesWorkingTreeAll :: [FilePath] -> IO [Issue] -getIssuesWorkingTreeAll paths = do - cwd <- getCurrentDirectory - files <- gitLsFilesAllIn cwd paths - concat <$> catch (getIssuesPar cwd files) dieOfInvalidTreeGrepperResult - -- | Gets issues in all files which have been changed in your current -- [working -- - tree](https://git-scm.com/docs/gitglossary#Documentation/gitglossary.txt-aiddefworkingtreeaworkingtree) @@ -251,20 +243,6 @@ gitLsFilesAll cwd = Prelude.lines . L8.unpack <$> sh ("git ls-files --cached --exclude-standard --other" & setWorkingDir cwd) -gitLsFilesAllIn :: FilePath -> [String] -> IO [FilePath] -gitLsFilesAllIn cwd paths = - Prelude.lines . L8.unpack - <$> sh - ( fromString - ( (printf "git ls-files --cached --exclude-standard --other%s") - ( case paths of - [] -> "" - _ -> " -- " ++ intercalate " " (map quote paths) - ) - ) - & setWorkingDir cwd - ) - gitShowChanged :: FilePath -> IO [FilePath] gitShowChanged cwd = Prelude.lines . L8.unpack |