increase timeout from 10 to 100 seconds

I've seen 10 be too short under load.
This commit is contained in:
Joey Hess 2012-07-26 18:04:09 -04:00
parent 9fd03c65f9
commit 9b2eec2e7a

View file

@ -56,7 +56,7 @@ start restart = notBareRepo $ do
state <- Annex.getState id
liftIO $ void $ forkProcess $
Annex.eval state $ startDaemon True False
waitdaemon f (100 :: Int)
waitdaemon f (1000 :: Int)
waitdaemon _ 0 = error "failed to start git-annex assistant"
waitdaemon f n = unlessM (checkpid f) $ do
-- wait 0.1 seconds before retry