aboutsummaryrefslogtreecommitdiffstats
path: root/app/History/Issues.hs
diff options
context:
space:
mode:
Diffstat (limited to 'app/History/Issues.hs')
-rw-r--r--app/History/Issues.hs10
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