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

Fix mistake in generating public links in open submissions

Browse Source
This commit is contained in:
Filip Gralinski 2021-10-01 16:04:28 +02:00
parent 9ab000646d
commit 512bf3559e
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
Handler/Shared.hs
View File

@ -93,8 +93,8 @@ getReadOnlySubmissionUrl NoInternalGitServer repoHost _ bareRepoName = publicRep
browsableGitRepoBranch :: RepoScheme -> Text -> Repo -> Text -> Text -> Text browsableGitRepoBranch :: RepoScheme -> Text -> Repo -> Text -> Text -> Text
browsableGitRepoBranch SelfHosted _ _ bareRepoName branch = (browsableGitRepo bareRepoName) ++ "/" ++ branch ++ "/" browsableGitRepoBranch SelfHosted _ _ bareRepoName branch = (browsableGitRepo bareRepoName) ++ "/" ++ branch ++ "/"
browsableGitRepoBranch Branches _ repo _ branch = sshToHttps (repoUrl repo) branch browsableGitRepoBranch Branches _ repo _ branch = sshToHttps (repoUrl repo) branch
browsableGitRepoBranch NoInternalGitServer repoHost repo _ branch browsableGitRepoBranch NoInternalGitServer repoHost repo bareRepoName branch
= sshToHttps (getPublicSubmissionUrl NoInternalGitServer repoHost (Just repo) branch) = sshToHttps (getPublicSubmissionUrl NoInternalGitServer repoHost (Just repo) bareRepoName)
branch branch
sshToHttps :: Text -> Text -> Text sshToHttps :: Text -> Text -> Text