Revision 9eeb0aa5 htools/Ganeti/Confd/Server.hs
| b/htools/Ganeti/Confd/Server.hs | ||
|---|---|---|
| 55 | 55 |
import Ganeti.Hash |
| 56 | 56 |
import Ganeti.Logging |
| 57 | 57 |
import qualified Ganeti.Constants as C |
| 58 |
import qualified Ganeti.Path as Path |
|
| 58 | 59 |
import Ganeti.Query.Server (runQueryD) |
| 59 | 60 |
|
| 60 | 61 |
-- * Types and constants definitions |
| ... | ... | |
| 503 | 504 |
hmac <- getClusterHmac |
| 504 | 505 |
-- Inotify setup |
| 505 | 506 |
inotify <- initINotify |
| 506 |
let inotiaction = addNotifier inotify C.clusterConfFile cref statemvar
|
|
| 507 |
let inotiaction = addNotifier inotify Path.clusterConfFile cref statemvar
|
|
| 507 | 508 |
-- fork the timeout timer |
| 508 |
_ <- forkIO $ onTimeoutTimer inotiaction C.clusterConfFile cref statemvar
|
|
| 509 |
_ <- forkIO $ onTimeoutTimer inotiaction Path.clusterConfFile cref statemvar
|
|
| 509 | 510 |
-- fork the polling timer |
| 510 |
_ <- forkIO $ onReloadTimer inotiaction C.clusterConfFile cref statemvar
|
|
| 511 |
_ <- forkIO $ onReloadTimer inotiaction Path.clusterConfFile cref statemvar
|
|
| 511 | 512 |
-- launch the queryd listener |
| 512 | 513 |
_ <- forkIO $ runQueryD Nothing (configReader cref) |
| 513 | 514 |
-- and finally enter the responder loop |
Also available in: Unified diff