1
0
Fork 0

Fix checkmark symbol

This commit is contained in:
Malte 2022-12-12 12:51:35 +01:00
parent 6d4c297089
commit c0f8e0842e

View file

@ -161,7 +161,7 @@ branchHTML branch = repoLink ("tree/" <> branch) branch
prHTML :: PRInfo -> App MessageText prHTML :: PRInfo -> App MessageText
prHTML prHTML
(PullRequest{pullRequestNumber, pullRequestTitle}, branches) = do (PullRequest{pullRequestNumber, pullRequestTitle}, branches) = do
branch_info <- forM branches \(arrived, branch) -> (m (if arrived then " " else "") <>) <$> branchHTML branch branch_info <- forM branches \(arrived, branch) -> (m (if arrived then " " else "") <>) <$> branchHTML branch
link_ <- link_ <-
repoLink repoLink
("pull/" <> show pullRequestNumber) ("pull/" <> show pullRequestNumber)