ilyakooo0/sc-build
1
0
Fork 0
mirror of https://github.com/ilyakooo0/sc-build.git synced 2024-11-27 09:37:30 +03:00
Code Issues Projects Releases Wiki Activity

changed emoji yet again

Browse Source
This commit is contained in:
iko 2020-02-25 00:16:38 +03:00
parent 08f39aa7b4
commit 1c8ce3a2ae
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 ":hourglass_flowing_sand:")
(Just "⌛")
(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 " :tada:" else " :banana:"
description = T.pack $ show passed <> "/" <> show total <> if passed == total then " ✅" else " ❌"
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 :skull:",
newStatusDescription = Just "Build failed ☠️",
newStatusContext = Just c
}
scheduleTask status