Revision 29a30533 htools/Ganeti/Confd/Server.hs
| b/htools/Ganeti/Confd/Server.hs | ||
|---|---|---|
| 533 | 533 |
hmac <- getClusterHmac |
| 534 | 534 |
-- Inotify setup |
| 535 | 535 |
inotify <- initINotify |
| 536 |
let inotiaction = addNotifier inotify Path.clusterConfFile cref statemvar |
|
| 536 |
conf_file <- Path.clusterConfFile |
|
| 537 |
let inotiaction = addNotifier inotify conf_file cref statemvar |
|
| 537 | 538 |
-- fork the timeout timer |
| 538 |
_ <- forkIO $ onTimeoutTimer inotiaction Path.clusterConfFile cref statemvar
|
|
| 539 |
_ <- forkIO $ onTimeoutTimer inotiaction conf_file cref statemvar
|
|
| 539 | 540 |
-- fork the polling timer |
| 540 |
_ <- forkIO $ onReloadTimer inotiaction Path.clusterConfFile cref statemvar
|
|
| 541 |
_ <- forkIO $ onReloadTimer inotiaction conf_file cref statemvar
|
|
| 541 | 542 |
-- launch the queryd listener |
| 542 | 543 |
_ <- forkIO $ runQueryD query_data (configReader cref) |
| 543 | 544 |
-- and finally enter the responder loop |
Also available in: Unified diff