From fa3d16e831a1b1a69efade2a06c4707877ec258e Mon Sep 17 00:00:00 2001
From: "Yann Esposito (Yogsototh)" <yann.esposito@gmail.com>
Date: Sun, 21 Oct 2018 16:57:31 +0200
Subject: [PATCH] handle all branches when serving

---
 playground/gpm-test.sh | 7 +++++--
 src/GPM/Serve.hs       | 2 +-
 2 files changed, 6 insertions(+), 3 deletions(-)

diff --git a/playground/gpm-test.sh b/playground/gpm-test.sh
index 91107bb..496966c 100755
--- a/playground/gpm-test.sh
+++ b/playground/gpm-test.sh
@@ -13,14 +13,17 @@ title(){
 }
 
 prjname="testproj"
-testproj="/tmp/$prjname"
-testproj2="/tmp/testproj2"
+playgrounddir="/tmp/gpm-playground"
+testproj="$playgrounddir/$prjname"
+testproj2="$playgrounddir/testproj2"
 mkdir -p $testproj
 pushd $testproj
 
 title "CLEANING UP"
 [[ -d $testproj ]] && rm -rf $testproj
 [[ -d $testproj2 ]] && rm -rf $testproj2
+[[ -d ~/.local/share/gpm ]] && rm -rf ~/.local/share/gpm
+gpm serve stop
 
 title "CREATE PROJECT $testproj"
 mkdir $testproj
diff --git a/src/GPM/Serve.hs b/src/GPM/Serve.hs
index 7f03f7e..2d3ce6d 100644
--- a/src/GPM/Serve.hs
+++ b/src/GPM/Serve.hs
@@ -100,7 +100,7 @@ handleUpdate _ = do
   pubPrjDir <- getPublicPrjDir
   inDir pubPrjDir $ do
     pwd >>= putText . format fp
-    debug_ "git fetch"
+    debug_ "git fetch --all"
 
 handleServeStart :: IO ()
 handleServeStart = do