Revision a317d77a src/Ganeti/WConfd/Server.hs
b/src/Ganeti/WConfd/Server.hs | ||
---|---|---|
37 | 37 |
|
38 | 38 |
import Ganeti.BasicTypes |
39 | 39 |
import Ganeti.Daemon |
40 |
import Ganeti.Locking.Allocation |
|
40 | 41 |
import qualified Ganeti.Path as Path |
41 | 42 |
import Ganeti.THH.RPC |
42 | 43 |
import Ganeti.UDSServer |
... | ... | |
67 | 68 |
-- TODO: Lock the configuration file so that running the daemon twice fails? |
68 | 69 |
conf_file <- Path.clusterConfFile |
69 | 70 |
|
70 |
dhOpt <- runResultT $ mkDaemonHandle conf_file mkConfigState |
|
71 |
dhOpt <- runResultT $ mkDaemonHandle conf_file mkConfigState emptyAllocation |
|
72 |
-- TODO: read current lock allocation from disk |
|
71 | 73 |
dh <- withError (strMsg . ("Initialization of the daemon failed" ++) . show) |
72 | 74 |
dhOpt |
73 | 75 |
|
Also available in: Unified diff