ilyakooo0/sc-build
1
0
Fork 0
mirror of https://github.com/ilyakooo0/sc-build.git synced 2024-11-23 20:39:24 +03:00
Code Issues Projects Releases Wiki Activity

Emoji are now compatible with github

Browse Source
This commit is contained in:
iko 2020-02-25 00:14:17 +03:00
parent 55d4fd9039
commit 08f39aa7b4
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
src/Server.hs
View File

@ -278,7 +278,7 @@ instance (MonadReader (ServerData m) m, StaticPQ m, MonadUnliftIO m) => HasGithu
( NewStatus
StatusPending
(Just . URL $ h <> "/submission/" <> owner <> "/" <> repo <> "/" <> sha)
(Just "⌛")
(Just ":hourglass_flowing_sand:")
(Just c)
)
scheduleTestedStatus TestResult {..} nOwner@(N owner) nRepo@(N repo) nCommit@(N sha) = do
@ -286,7 +286,7 @@ instance (MonadReader (ServerData m) m, StaticPQ m, MonadUnliftIO m) => HasGithu
c <- asks context
let total = M.size tests
passed = M.size . M.filter id $ tests
description = T.pack $ show passed <> "/" <> show total <> if passed == total then " 🎉" else " 🍌"
description = T.pack $ show passed <> "/" <> show total <> if passed == total then " :tada:" else " :banana:"
status =
StatusUpdate
nOwner
@ -311,7 +311,7 @@ instance (MonadReader (ServerData m) m, StaticPQ m, MonadUnliftIO m) => HasGithu
NewStatus
{ newStatusState = StatusError,
newStatusTargetUrl = Just . URL $ h <> "/submission/" <> owner <> "/" <> repo <> "/" <> sha,
newStatusDescription = Just "Build failed ☠️",
newStatusDescription = Just "Build failed :skull:",
newStatusContext = Just c
}
scheduleTask status