@@ -278,7 +278,7 @@ instance (MonadReader (ServerData m) m, StaticPQ m, MonadUnliftIO m) => HasGithu
278278 ( NewStatus
279279 StatusPending
280280 (Just . URL $ h <> "/submission/" <> owner <> "/" <> repo <> "/" <> sha)
281− (Just ":hourglass_flowing_sand:")
281+ (Just "⌛")
282282 (Just c)
283283 )
284284 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
286286 c <- asks context
287287 let total = M.size tests
288288 passed = M.size . M.filter id $ tests
289− description = T.pack $ show passed <> "/" <> show total <> if passed == total then " :tada:" else " :banana:"
289+ description = T.pack $ show passed <> "/" <> show total <> if passed == total then " ✅" else " ❌"
290290 status =
291291 StatusUpdate
292292 nOwner
@@ -311,7 +311,7 @@ instance (MonadReader (ServerData m) m, StaticPQ m, MonadUnliftIO m) => HasGithu
311311 NewStatus
312312 { newStatusState = StatusError,
313313 newStatusTargetUrl = Just . URL $ h <> "/submission/" <> owner <> "/" <> repo <> "/" <> sha,
314− newStatusDescription = Just "Build failed :skull:",
314+ newStatusDescription = Just "Build failed ☠️",
315315 newStatusContext = Just c
316316 }
317317 scheduleTask status