@@ -55,7 +55,7 @@ getSubmissionR user repo sha' = do
55 passed = M.size . M.filter Prelude.id $ tests
55 passed = M.size . M.filter Prelude.id $ tests
56 H.h3 . toHtml $
56 H.h3 . toHtml $
57 "Tests have run: " <> show passed <> "/" <> show total
57 "Tests have run: " <> show passed <> "/" <> show total
58− <> if passed == total then " ✅" else " 🟨"
58+ <> if passed == total then " 🎉" else " 🍌"
59 restartBuild
59 restartBuild
60 H.table $ flip M.foldMapWithKey tests $ \testName testPassed -> H.tr $ do
60 H.table $ flip M.foldMapWithKey tests $ \testName testPassed -> H.tr $ do
61 (H.td H.! A.align "right") . H.p $ toHtml testName
61 (H.td H.! A.align "right") . H.p $ toHtml testName