From b8b1eefa6b4da9e052c64bee24e36cef483b9843 Mon Sep 17 00:00:00 2001
From: Filip Gralinski <filipg@amu.edu.pl>
Date: Fri, 23 Jul 2021 20:20:52 +0200
Subject: [PATCH] Params are shown as part of a description in all end-points

---
 Handler/ShowChallenge.hs | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

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