mirrors/git-annex
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages 1 Wiki Activity Actions

don't delay at startup

Browse source 
Still wait 1 minute after a change before waiting on the next change, but don't
wait at the start, when we might get a pull that contains config changes
right away.
This commit is contained in:
Joey Hess 2012-10-30 17:23:42 -04:00
parent f6208bca0d
commit a1bd5b1fa0
1 changed files with 1 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
Assistant/Threads/ConfigMonitor.hs
View file

@ -38,7 +38,6 @@ configMonitorThread :: NamedThread
configMonitorThread = NamedThread "ConfigMonitor" $ loop =<< getConfigs configMonitorThread = NamedThread "ConfigMonitor" $ loop =<< getConfigs
where where
loop old = do loop old = do
liftIO $ threadDelaySeconds (Seconds 60)
waitBranchChange waitBranchChange
new <- getConfigs new <- getConfigs
when (old /= new) $ do when (old /= new) $ do
@ -49,6 +48,7 @@ configMonitorThread = NamedThread "ConfigMonitor" $ loop =<< getConfigs
{- Record a commit to get this config {- Record a commit to get this config
- change pushed out to remotes. -} - change pushed out to remotes. -}
recordCommit recordCommit
liftIO $ threadDelaySeconds (Seconds 60)
loop new loop new
{- Config files, and their checksums. -} {- Config files, and their checksums. -}