diff options
Diffstat (limited to 'app/History/Scramble.hs')
| -rw-r--r-- | app/History/Scramble.hs | 13 |
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 $ |