yogsototh/gpm
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

handle all branches when serving

Browse source
This commit is contained in:
Yann Esposito (Yogsototh) 2018-10-21 16:57:31 +02:00
parent 189b181b13
commit fa3d16e831
Signed by untrusted user who does not match committer: yogsototh
GPG key ID: 7B19A4C650D59646
2 changed files with 6 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
playground/gpm-test.sh
View file

@ -13,14 +13,17 @@ title(){
} }
prjname="testproj" prjname="testproj"
testproj="/tmp/$prjname" playgrounddir="/tmp/gpm-playground"
testproj2="/tmp/testproj2" testproj="$playgrounddir/$prjname"
testproj2="$playgrounddir/testproj2"
mkdir -p $testproj mkdir -p $testproj
pushd $testproj pushd $testproj
title "CLEANING UP" title "CLEANING UP"
[[ -d $testproj ]] && rm -rf $testproj [[ -d $testproj ]] && rm -rf $testproj
[[ -d $testproj2 ]] && rm -rf $testproj2 [[ -d $testproj2 ]] && rm -rf $testproj2
[[ -d ~/.local/share/gpm ]] && rm -rf ~/.local/share/gpm
gpm serve stop
title "CREATE PROJECT $testproj" title "CREATE PROJECT $testproj"
mkdir $testproj mkdir $testproj

2
src/GPM/Serve.hs
View file

@ -100,7 +100,7 @@ handleUpdate _ = do
pubPrjDir <- getPublicPrjDir pubPrjDir <- getPublicPrjDir
inDir pubPrjDir $ do inDir pubPrjDir $ do
pwd >>= putText . format fp pwd >>= putText . format fp
debug_ "git fetch" debug_ "git fetch --all"
handleServeStart :: IO () handleServeStart :: IO ()
handleServeStart = do handleServeStart = do