diff options
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 |