src/Logic: fix build (TODO: squash)

channable · Jul 28, 2022 · e369136 · e369136
1 parent 53e7cc8
commit e369136
Showing 1 changed file with 3 additions and 4 deletions.
diff --git a/src/Logic.hs b/src/Logic.hs
@@ -635,10 +635,9 @@ getPullRequestRef (PullRequestId n) = Branch $ format "refs/pull/{}/head" [n]
 getTrain :: ProjectState -> [PullRequestId]
 getTrain state =
   [ pid
-  | ( pid
-    , Pr.PullRequest{Pr.integrationStatus = Integrated _ status}
-    ) <- Pr.getIntegrationCandidates state
-  , status == BuildPending
+  | pid <- Pr.integratedPullRequests state
+  , Just (Pr.PullRequest{Pr.integrationStatus = Integrated _ (BuildPending _)})
+      <- [Pr.lookupPullRequest pid state]
   ]
 
 -- Integrates proposed changes from the pull request into the target branch.