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
(_, _) <- runProgram (Just repoDir) gitPath [
"push",
targetRepoUrl,
(T.unpack $ fixGitRepoUrl $ T.pack targetRepoUrl),
(T.unpack $ fromSHA1ToText commit) ++ ":refs/heads/" ++ targetBranchName] chan
return ()