@@ -44,10 +44,10 @@ getSubmissionR user repo sha' = do
4444 H.h2 $ toHtml userName
4545 case status of
4646 Jsonb BuildScheduled -> do
47− H.h3 "Waiting to build"
47+ H.h3 "Waiting to build ⌛"
4848 restartBuild
4949 Jsonb (SubmissionFailed err) -> do
50− H.h3 "Failed to build"
50+ H.h3 "Failed to build ☠️"
5151 restartBuild
5252 H.code . H.pre $ toHtml err
5353 Jsonb (SubmissionRun (TestResult tests)) -> do
@@ -55,7 +55,7 @@ getSubmissionR user repo sha' = do
5555 passed = M.size . M.filter Prelude.id $ tests
5656 H.h3 . toHtml $
5757 "Tests have run: " <> show passed <> "/" <> show total
58− <> if passed == total then " ✅" else ""
58+ <> if passed == total then " ✅" else " 🟨"
5959 restartBuild
6060 H.table $ flip M.foldMapWithKey tests $ \testName testPassed -> H.tr $ do
6161 (H.td H.! A.align "right") . H.p $ toHtml testName