git-annex-shell now exclusively used for all remote access

This commit is contained in:
Joey Hess 2010-12-31 19:09:17 -04:00
parent 30e0065ab9
commit 700aed13cf
6 changed files with 102 additions and 125 deletions

View file

@ -34,5 +34,9 @@ start keyname = do
ok <- getViaTmp key (liftIO . rsyncServerReceive)
if ok
then return Nothing
then do
-- forcibly quit after receiving one key,
-- and shutdown cleanly so queued git commands run
_ <- shutdown 0
liftIO exitSuccess
else liftIO exitFailure