Revision 88a10df5 htools/Ganeti/Confd/Server.hs
b/htools/Ganeti/Confd/Server.hs | ||
---|---|---|
51 | 51 |
import Ganeti.Config |
52 | 52 |
import Ganeti.Hash |
53 | 53 |
import Ganeti.Logging |
54 |
import Ganeti.BasicTypes |
|
55 | 54 |
import qualified Ganeti.Constants as C |
56 | 55 |
|
57 | 56 |
-- * Types and constants definitions |
... | ... | |
504 | 503 |
main :: DaemonOptions -> IO () |
505 | 504 |
main opts = do |
506 | 505 |
parseresult <- parseAddress opts C.defaultConfdPort |
507 |
(af_family, bindaddr) <- exitIfBad parseresult |
|
506 |
(af_family, bindaddr) <- exitIfBad "parsing bind address" parseresult
|
|
508 | 507 |
s <- S.socket af_family S.Datagram S.defaultProtocol |
509 | 508 |
S.bindSocket s bindaddr |
510 | 509 |
cref <- newIORef (Bad "Configuration not yet loaded") |
Also available in: Unified diff