filipg/gonito
1
0
Fork 1
Code Issues 1 Pull Requests Releases Wiki Activity

Params are shown as part of a description in all end-points

Browse Source
This commit is contained in:
Filip Gralinski 2021-07-23 20:20:52 +02:00
parent 424dc329f5
commit b8b1eefa6b
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
Handler/ShowChallenge.hs
View File

@ -1102,6 +1102,7 @@ fetchDefaultTeam userId = do
return Nothing return Nothing
submissionForm :: UserId -> Maybe Text -> Maybe Text -> Maybe Text -> Maybe (Maybe TeamId) -> Form ChallengeSubmissionData
submissionForm userId defaultUrl defBranch defaultGitAnnexRemote defaultTeam = renderBootstrap3 BootstrapBasicForm $ ChallengeSubmissionData submissionForm userId defaultUrl defBranch defaultGitAnnexRemote defaultTeam = renderBootstrap3 BootstrapBasicForm $ ChallengeSubmissionData
<$> aopt textField (fieldWithTooltip MsgSubmissionDescription MsgSubmissionDescriptionTooltip) Nothing <$> aopt textField (fieldWithTooltip MsgSubmissionDescription MsgSubmissionDescriptionTooltip) Nothing
<*> aopt textField (tagsfs MsgSubmissionTags) Nothing <*> aopt textField (tagsfs MsgSubmissionTags) Nothing
@ -1316,7 +1317,9 @@ convertTableEntryToView tests entry = do
submissionViewSubmitter = formatSubmitter $ entityVal $ tableEntrySubmitter entry, submissionViewSubmitter = formatSubmitter $ entityVal $ tableEntrySubmitter entry,
submissionViewWhen = submissionStamp submission, submissionViewWhen = submissionStamp submission,
submissionViewVersion = tableEntryVersion entry, submissionViewVersion = tableEntryVersion entry,
submissionViewDescription = submissionDescription submission, submissionViewDescription = descriptionToBeShown submission
(entityVal $ tableEntryVariant entry)
(map entityVal $ tableEntryParams entry),
submissionViewTags = Import.map convertTagInfoToView $ tableEntryTagsInfo entry, submissionViewTags = Import.map convertTagInfoToView $ tableEntryTagsInfo entry,
submissionViewHash = fromSHA1ToText $ submissionCommit submission, submissionViewHash = fromSHA1ToText $ submissionCommit submission,
submissionViewEvaluations = catMaybes $ Import.map (convertEvaluationToView $ tableEntryMapping entry) tests, submissionViewEvaluations = catMaybes $ Import.map (convertEvaluationToView $ tableEntryMapping entry) tests,