Fix making public

This commit is contained in:
Filip Gralinski 2019-12-07 23:17:12 +01:00
parent 219349e95a
commit 5bd6e34c6b

View File

@ -45,7 +45,7 @@ pushRepo :: String -> SHA1 -> String -> String -> Channel -> Handler ()
pushRepo repoDir commit targetRepoUrl targetBranchName chan = do pushRepo repoDir commit targetRepoUrl targetBranchName chan = do
(_, _) <- runProgram (Just repoDir) gitPath [ (_, _) <- runProgram (Just repoDir) gitPath [
"push", "push",
targetRepoUrl, (T.unpack $ fixGitRepoUrl $ T.pack targetRepoUrl),
(T.unpack $ fromSHA1ToText commit) ++ ":refs/heads/" ++ targetBranchName] chan (T.unpack $ fromSHA1ToText commit) ++ ":refs/heads/" ++ targetBranchName] chan
return () return ()