fix: fix first scramble having to scan all files

1 files changed, 1 insertions, 12 deletions

diff --git a/app/History/Scramble.hs b/app/History/Scramble.hs
index 093db98..ca4f4f8 100644
--- a/app/History/Scramble.hs
+++ b/app/History/Scramble.hs
@@ -36,18 +36,7 @@ data Scramble = Scramble
   deriving (Show, Binary, Generic)
 
 getScramble :: Backend.CommitHash -> IO Scramble
-getScramble commitHash@Backend.WorkingTree = do
-  filesChanged <- Backend.getFilesOf commitHash
-  issues <- concat <$> mapM (getIssuesOfFile commitHash) filesChanged
-  pure $
-    Scramble
-      { issues =
-          M.unions
-            [ M.singleton issue.id issue | issue <- issues
-            ],
-        ..
-      }
-getScramble commitHash@(Backend.Commit _) = do
+getScramble commitHash = do
   filesChanged <- Backend.getChangedFilesOf commitHash
   issues <- concat <$> mapM (getIssuesOfFile commitHash) filesChanged
   pure $