Revision fe50bb65
b/src/Ganeti/ConfigReader.hs | ||
---|---|---|
168 | 168 |
-> MVar ServerState -> IO () |
169 | 169 |
onWatcherTimer inotiaction path save_fn state = do |
170 | 170 |
threadDelay watchInterval |
171 |
logDebug "Watcher timer fired"
|
|
171 |
logDebug "Config-reader watcher timer fired"
|
|
172 | 172 |
modifyMVar_ state (onWatcherInner path save_fn) |
173 | 173 |
_ <- inotiaction |
174 | 174 |
onWatcherTimer inotiaction path save_fn state |
b/src/Ganeti/JQScheduler.hs | ||
---|---|---|
181 | 181 |
onTimeWatcher :: JQStatus -> IO () |
182 | 182 |
onTimeWatcher qstate = forever $ do |
183 | 183 |
threadDelay watchInterval |
184 |
logDebug "Watcher timer fired"
|
|
184 |
logDebug "Job queue watcher timer fired"
|
|
185 | 185 |
jobs <- readIORef (jqJobs qstate) |
186 | 186 |
mapM_ (updateJob qstate) $ qRunning jobs |
187 | 187 |
cleanupFinishedJobs qstate |
Also available in: Unified diff