diff options
| -rw-r--r-- | Assistant/Threads/ConfigMonitor.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/Assistant/Threads/ConfigMonitor.hs b/Assistant/Threads/ConfigMonitor.hs index a1726a361..2d012ad80 100644 --- a/Assistant/Threads/ConfigMonitor.hs +++ b/Assistant/Threads/ConfigMonitor.hs @@ -38,7 +38,6 @@ configMonitorThread :: NamedThread configMonitorThread = NamedThread "ConfigMonitor" $ loop =<< getConfigs where loop old = do - liftIO $ threadDelaySeconds (Seconds 60) waitBranchChange new <- getConfigs when (old /= new) $ do @@ -49,6 +48,7 @@ configMonitorThread = NamedThread "ConfigMonitor" $ loop =<< getConfigs {- Record a commit to get this config - change pushed out to remotes. -} recordCommit + liftIO $ threadDelaySeconds (Seconds 60) loop new {- Config files, and their checksums. -} |