fix updating non-master branches

2016-02-11 22:25:07 +01:00 · 2016-02-11 22:25:07 +01:00 · c09aacddfd
commit c09aacddfd
parent f06e104f3d
1 changed files with 5 additions and 1 deletions
--- a/Handler/Shared.hs
+++ b/Handler/Shared.hs
@ -94,7 +94,11 @@ updateRepo :: Key Repo -> Channel -> Handler Bool
 updateRepo repoId chan = do
  repo <- runDB $ get404 repoId
  repoDir <- getRepoDir repoId
-  (exitCode, _) <- runProgram (Just repoDir) gitPath ["fetch", "--progress"] chan
+  let branch = repoBranch repo
+  (exitCode, _) <- runProgram (Just repoDir) gitPath ["fetch",
+                                                     "origin",
+                                                     T.unpack branch,
+                                                     "--progress"] chan
  case exitCode of
    ExitSuccess -> do
      (exitCode, _) <- runProgram (Just repoDir) gitPath ["reset",