Show the file basename for a variant

Handler/Query.hs

@@ -249,8 +249,8 @@ resultTable (Entity submissionId submission) = do
   $(widgetFile "result-table")
 
 
-submissionHeader :: FullSubmissionInfo -> WidgetFor App ()
+submissionHeader :: FullSubmissionInfo -> Maybe Text -> WidgetFor App ()
-submissionHeader submission =
+submissionHeader submission mVariantName =
   $(widgetFile "submission-header")
     where commitSha1AsText = fromSHA1ToText $ submissionCommit $ fsiSubmission submission
           submitter = formatSubmitter $ fsiUser submission

templates/query-result.hamlet

@@ -3,7 +3,7 @@
    <p class="media-object">
      <span class="glyphicon glyphicon-asterisk" aria-hidden="hidden">
  <div class="media-body">
-  ^{submissionHeader submission}
+  ^{submissionHeader submission Nothing}
   ^{resultTable (Entity (fsiSubmissionId submission) (fsiSubmission submission))}
 
   $if not (null (fsiSuperSubmissions submission))

templates/submission-header.hamlet

@@ -26,3 +26,7 @@
         <a href="#{externalLinkUrl externalLink}">
            #{fromMaybe (externalLinkUrl externalLink) (externalLinkTitle externalLink)}
         <br>
+  $maybe variant <- mVariantName
+    <dt>file basename
+    <dd><tt>#{variant}</tt>
+  $nothing

templates/view-variant.hamlet

@@ -3,7 +3,7 @@
    <p class="media-object">
      <span class="glyphicon glyphicon-asterisk" aria-hidden="hidden">
  <div class="media-body">
-  ^{submissionHeader fullSubmissionInfo}
+  ^{submissionHeader fullSubmissionInfo (Just $ variantName variant)}
 
   $case tableEntryParams entry
     $of []