fixup! fixup! make priority merges also skip Promote PRs

Author: Riscky

tests/Spec.hs

@@ -6527,7 +6527,6 @@ main = hspec $ do
           , Pause
           , BuildStatusChanged (Sha "2bc") "default" Project.BuildSucceeded
           , PullRequestCommitChanged (PullRequestId 2) (Sha "2bc") -- this leads to a `Promote` PR
-
           , CommentAdded (PullRequestId 1) "deckard" Nothing "@bot merge with priority"
           , BuildStatusChanged (Sha "1ab") "default" Project.BuildSucceeded
           , PullRequestCommitChanged (PullRequestId 1) (Sha "1ab")
@@ -6546,19 +6545,19 @@ main = hspec $ do
         `shouldBe` [ AIsReviewer "deckard"
                    , ALeaveComment (PullRequestId 2) "<!-- Hoff: ignore -->\nPull request approved for merge by @deckard, rebasing now."
                    , ATryIntegrate
-                       "Merge #2: Second PR\n\n\
-                       \Approved-by: deckard\n\
-                       \Priority: Normal\n\
-                       \Auto-deploy: false\n"
-                       (PullRequestId 2, Branch "refs/pull/2/head", Sha "cd2")
-                       []
-                       False
-                  , ALeaveComment
-                    (PullRequestId 2)
-                    "<!-- Hoff: ignore -->\nRebased as 2bc, waiting for CI …"
+                      "Merge #2: Second PR\n\n\
+                      \Approved-by: deckard\n\
+                      \Priority: Normal\n\
+                      \Auto-deploy: false\n"
+                      (PullRequestId 2, Branch "refs/pull/2/head", Sha "cd2")
+                      []
+                      False
+                   , ALeaveComment
+                      (PullRequestId 2)
+                      "<!-- Hoff: ignore -->\nRebased as 2bc, waiting for CI …"
                    , ATryForcePush (Branch "snd") (Sha "2bc")
                    , ALeaveComment (PullRequestId 2) "Your PR is ready to be merged into master, but merging has been paused"
-                    , AIsReviewer "deckard"
+                   , AIsReviewer "deckard"
                    , ALeaveComment
                       (PullRequestId 1)
                       "<!-- Hoff: ignore -->\nPull request approved for merge with high priority by @deckard, rebasing now."
@@ -6579,7 +6578,7 @@ main = hspec $ do
                       (PullRequestId 2, Branch "refs/pull/2/head", Sha "cd2")
                       [PullRequestId 1]
                       False
-                    , ALeaveComment (PullRequestId 2) "<!-- Hoff: ignore -->\nSpeculatively rebased as 2de behind 1 other PR, waiting for CI …"
+                   , ALeaveComment (PullRequestId 2) "<!-- Hoff: ignore -->\nSpeculatively rebased as 2de behind 1 other PR, waiting for CI …"
                    , ATryForcePush (Branch "fst") (Sha "1ab")
                    , ATryPromote (Sha "1ab")
                    , ACleanupTestBranch (PullRequestId 1)