From d604a84053c07bfa97d811e35580053d77c8fe46 Mon Sep 17 00:00:00 2001 From: Filip Gralinski Date: Wed, 15 Sep 2021 13:24:40 +0200 Subject: [PATCH] Fix public repo in the no-internal-git mode --- Handler/Shared.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/Handler/Shared.hs b/Handler/Shared.hs index cc14542..e1f2091 100644 --- a/Handler/Shared.hs +++ b/Handler/Shared.hs @@ -78,7 +78,7 @@ getPublicSubmissionBranch = T.pack . (printf "submission-%05d") . fromSqlKey getPublicSubmissionUrl :: RepoScheme -> Text -> Maybe Repo -> Text -> Text getPublicSubmissionUrl SelfHosted repoHost _ bareRepoName = repoHost ++ bareRepoName getPublicSubmissionUrl Branches _ (Just repo) _ = repoUrl repo -getPublicSubmissionUrl NoInternalGitServer _ (Just repo) _ = repoUrl repo +getPublicSubmissionUrl NoInternalGitServer repoHost _ bareRepoName = repoHost ++ bareRepoName getReadOnlySubmissionUrl :: RepoScheme -> Repo -> Text -> Text getReadOnlySubmissionUrl SelfHosted _ bareRepoName = gitReadOnlyServer ++ bareRepoName