diff options
| author |  Alexander Foremny <aforemny@posteo.de> | 2023-10-16 10:23:52 +0200 |
|---|---|---|
| committer | Alexander Foremny <aforemny@posteo.de> | 2023-10-16 10:27:54 +0200 |
| commit | 8d6a71ace58889110fc61f8384f7554c42ed3d8a (patch) | |
| tree | 0946b3f07f1d056c9d8a62abd5f9bdfe01520a83 | |
| parent | 6adba380bdffd773398a220dc8066f81854e4949 (diff) | |
drop unused functions from History
| -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 |