Variant information reachable from query results

Handler/Query.hs

@@ -100,9 +100,10 @@ getViewVariantR variantId = do
   let theSubmissionId = variantSubmission variant
   theSubmission <- runDB $ get404 theSubmissionId
 
-  ([entry], tests) <- runDB $ getChallengeSubmissionInfos (\e -> entityKey e == theSubmissionId)
+  ([entry], tests') <- runDB $ getChallengeSubmissionInfos (\e -> entityKey e == theSubmissionId)
-                                                         (\e -> entityKey e == variantId)
+                                                          (\e -> entityKey e == variantId)
-                                                         (submissionChallenge theSubmission)
+                                                          (submissionChallenge theSubmission)
+  let tests = sortBy (flip testComparator) tests'
 
   if submissionIsPublic theSubmission || Just (submissionSubmitter theSubmission) == (entityKey <$> mauthId)
     then

Handler/Tables.hs

@@ -82,6 +82,11 @@ variantTable paramNames tests = mempty
   ++ Table.int "#" tableEntryRank
   ++ mconcat (map paramExtractor paramNames)
   ++ mconcat (map (\e@(Entity _ t) -> resultCell t (extractScore $ getTestReference e)) tests)
+  ++ Table.widget "" variantStatusCellWidget
+
+variantStatusCellWidget :: TableEntry -> WidgetFor App ()
+variantStatusCellWidget entry = $(widgetFile "variant-status")
+  where theVariantId = entityKey $ tableEntryVariant entry
 
 paramExtractor :: Text -> Table App TableEntry
 paramExtractor paramName = Table.text paramName (\entry ->

templates/variant-status.hamlet

@@ -0,0 +1,2 @@
+<a href="@{ViewVariantR theVariantId}">
+    <span class="glyphicon glyphicon-info-sign" title="click to see the detailed information" aria-hidden="true">