From 8d6a71ace58889110fc61f8384f7554c42ed3d8a Mon Sep 17 00:00:00 2001
From: Alexander Foremny <aforemny@posteo.de>
Date: Mon, 16 Oct 2023 10:23:52 +0200
Subject: drop unused functions from History

---
 app/History.hs | 22 ----------------------
 1 file changed, 22 deletions(-)

(limited to 'app/History.hs')

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
-- 
cgit v1.2.3