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 ( NewStatus
StatusPending StatusPending
(Just . URL $ h <> "/submission/" <> owner <> "/" <> repo <> "/" <> sha) (Just . URL $ h <> "/submission/" <> owner <> "/" <> repo <> "/" <> sha)
(Just "⌛") (Just ":hourglass_flowing_sand:")
(Just c) (Just c)
) )
scheduleTestedStatus TestResult {..} nOwner@(N owner) nRepo@(N repo) nCommit@(N sha) = do 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 c <- asks context
let total = M.size tests let total = M.size tests
passed = M.size . M.filter id $ 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 = status =
StatusUpdate StatusUpdate
nOwner nOwner
@ -311,7 +311,7 @@ instance (MonadReader (ServerData m) m, StaticPQ m, MonadUnliftIO m) => HasGithu
NewStatus NewStatus
{ newStatusState = StatusError, { newStatusState = StatusError,
newStatusTargetUrl = Just . URL $ h <> "/submission/" <> owner <> "/" <> repo <> "/" <> sha, newStatusTargetUrl = Just . URL $ h <> "/submission/" <> owner <> "/" <> repo <> "/" <> sha,
newStatusDescription = Just "Build failed ☠️", newStatusDescription = Just "Build failed :skull:",
newStatusContext = Just c newStatusContext = Just c
} }
scheduleTask status scheduleTask status