maralorn/nixos-config
1
0
Fork 0
Code Wiki Activity

Improve pr mention

Browse source
This commit is contained in:
Malte 2022-11-06 17:26:21 +01:00
parent ba64e3b3e3
commit 9cad927dce
1 changed files with 1 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
exe/Main.hs
View file

@ -2,7 +2,6 @@ module Main where
import Control.Concurrent (threadDelay)
import qualified Control.Concurrent.Async as Async
import qualified Data.List as List
import qualified Data.Map.Strict as Map
import qualified Data.Text as Text
import Data.Yaml (FromJSON)
@ -97,7 +96,7 @@ branchHTML :: Text -> MessageText
branchHTML branch = link ("tree/" <> branch) branch
prHTML :: (Int, [Text]) -> MessageText
prHTML (pr, subscribers) = link ("pull/" <> show pr) ("#" <> show pr <> if null subscribers then "" else "(" <> Text.intercalate ", " subscribers <> ")")
prHTML (pr, subscribers) = link ("pull/" <> show pr) ("#" <> show pr) <> m if null subscribers then "" else " (" <> Text.intercalate ", " subscribers <> ")"
type MessageText = (Text, Text)