diff options
author | Alexander Foremny <aforemny@posteo.de> | 2024-03-21 05:35:00 +0100 |
---|---|---|
committer | Alexander Foremny <aforemny@posteo.de> | 2024-03-25 07:45:59 +0100 |
commit | f83b424bf70b7b14b0268aeeafe1b3483fced49f (patch) | |
tree | 348a60e815f4bee492f58dea903ebc380029d61f /app/History/Issues.hs | |
parent | fc0afaaa273f5b5d3696df87d70d5347a13bb9ac (diff) |
chore: Git -> Backend
Diffstat (limited to 'app/History/Issues.hs')
-rw-r--r-- | app/History/Issues.hs | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/app/History/Issues.hs b/app/History/Issues.hs index 08ad772..63f1735 100644 --- a/app/History/Issues.hs +++ b/app/History/Issues.hs @@ -3,29 +3,29 @@ module History.Issues ) where +import Backend qualified import Data.Binary (Binary) import Data.Function (on) import Data.Map qualified as M import Data.Proxy (Proxy) import Data.Text qualified as T import GHC.Generics (Generic) -import Git qualified import History.Plan (Id, Planable, Proto, assume, propagate, protoOf) import History.Scramble (Scramble (..), getIssuesOfFile) import Issue qualified as I data Issues = Issues - { commitHash :: Git.CommitHash, + { commitHash :: Backend.CommitHash, issues :: M.Map T.Text I.Issue } deriving (Show, Generic, Binary) instance Planable Issues where - type Id Issues = Git.CommitHash + type Id Issues = Backend.CommitHash type Proto Issues = Scramble - protoOf :: Proxy Issues -> Git.CommitHash -> IO Scramble + protoOf :: Proxy Issues -> Backend.CommitHash -> IO Scramble protoOf _ commitHash = do - filesChanged <- Git.getChangedFilesOf commitHash + filesChanged <- Backend.getChangedFilesOf commitHash issues <- concat <$> mapM (getIssuesOfFile commitHash) filesChanged pure $ Scramble |