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