From c09aacddfddb46d4c9ca72b13ffef649f26b7a2a Mon Sep 17 00:00:00 2001
From: Filip Gralinski <filipg@amu.edu.pl>
Date: Thu, 11 Feb 2016 22:25:07 +0100
Subject: [PATCH] fix updating non-master branches

---
 Handler/Shared.hs | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

diff --git a/Handler/Shared.hs b/Handler/Shared.hs
index 6a7c416..e5722d6 100644
--- 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",