@@ -39,9 +39,10 @@ getSubmissionR user repo sha' = do
3939 Nothing ->
4040 return . ("Not found",) $
4141 H.h1 "404. not found. go away."
42− Just Submission {..} -> return . (repo,) $ do
42+ Just Submission {..} -> return . (problem,) $ do
4343 H.h1 $ toHtml problem
4444 H.h2 $ toHtml userName
45+ H.h3 . H.code . toHtml . take 7 $ sha
4546 case status of
4647 Jsonb BuildScheduled -> do
4748 H.h3 "Waiting to build ⌛"