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