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