s464900/gonito
1
0
Fork 0
forked from filipg/gonito
Code Issues Pull Requests Projects Releases Wiki Activity

Show the file basename for a variant

Browse Source
This commit is contained in:
Filip Gralinski 2019-12-14 15:27:59 +01:00
parent 7faee30a39
commit 9554b45f8a
4 changed files with 8 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
Handler/Query.hs
View File

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

2
templates/query-result.hamlet
View File

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

4
templates/submission-header.hamlet
View File

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

2
templates/view-variant.hamlet
View File

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