From f016e673cedb648006b2aea981e4b393a19afd30 Mon Sep 17 00:00:00 2001
From: Filip Gralinski <filipg@amu.edu.pl>
Date: Sat, 28 Mar 2020 18:21:32 +0100
Subject: [PATCH] Use alt repo scheme when creating the default URL for
 submission

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

diff --git a/Handler/ShowChallenge.hs b/Handler/ShowChallenge.hs
index cd8b9d2..70bd0ba 100644
--- a/Handler/ShowChallenge.hs
+++ b/Handler/ShowChallenge.hs
@@ -230,7 +230,10 @@ getChallengeSubmissionR name = do
    let scheme = appRepoScheme $ appSettings app
    let repoHost = appRepoHost $ appSettings app
 
-   (formWidget, formEnctype) <- generateFormPost $ submissionForm (Just $ defaultRepo scheme repoHost challenge repo maybeUser) (defaultBranch scheme) (repoGitAnnexRemote repo)
+   let defaultUrl = fromMaybe (defaultRepo scheme repoHost challenge repo maybeUser)
+                              ((<> name) <$> (join $ userAltRepoScheme <$> entityVal <$> maybeUser))
+
+   (formWidget, formEnctype) <- generateFormPost $ submissionForm (Just defaultUrl) (defaultBranch scheme) (repoGitAnnexRemote repo)
    challengeLayout True challenge $ challengeSubmissionWidget formWidget formEnctype challenge
 
 postChallengeSubmissionR :: Text -> Handler TypedContent