Use the proper server when triggering

2019-12-07 22:34:24 +01:00 · 2019-12-07 22:34:24 +01:00 · 3705c9c0ea
commit 3705c9c0ea
parent 247e55ba18
1 changed files with 5 additions and 1 deletions
--- a/Handler/ShowChallenge.hs
+++ b/Handler/ShowChallenge.hs
@ -237,7 +237,11 @@ postTriggerLocallyR = do
  mBranch <- lookupPostParam "branch"
  mGitAnnexRemote <- lookupPostParam "git-annex-remote"
  [Entity userId _] <- runDB $ selectList [UserLocalId ==. Just localId] []
-  let localRepo = gitServer ++ localId ++ "/" ++ challengeName
+
+  app <- getYesod
+  let repoHost = appRepoHost $ appSettings app
+
+  let localRepo = repoHost ++ localId ++ "/" ++ challengeName
  trigger userId challengeName localRepo mBranch mGitAnnexRemote

 postTriggerRemotelyR :: Handler TypedContent