Revision 41ea331e src/Ganeti/WConfd/Server.hs

b/src/Ganeti/WConfd/Server.hs
71 71 
  cleanupSocket socket_path
72 72 
  s <- describeError "binding to the socket" Nothing (Just socket_path)
73 73 
         $ connectServer connectConfig True socket_path
74 

  		





  74
  75
  
    
  -- TODO: Lock the configuration file so that running the daemon twice fails?


  		





  75
  76
  
    
  conf_file <- Path.clusterConfFile


  		





  76
  77
  
    

  		





  ......




  79
  80
  
    
  unless lock_file_present


  		





  80
  81
  
    
    $ logInfo "No saved lock status; assuming all locks free"


  		





  81
  82
  
    
  dhOpt <- runResultT $ do


  		





  
  83
  
    
    ents <- getEnts


  		





  82
  84
  
    
    (cdata, cstat) <- loadConfigFromFile conf_file


  		





  83
  85
  
    
    lock <- if lock_file_present


  		





  84
  86
  
    
              then loadLockAllocation lock_file


  		





  ......




  87
  89
  
    
                   (mkConfigState cdata)


  		





  88
  90
  
    
                   lock


  		





  89
  91
  
    
                   (saveConfigAsyncTask conf_file cstat)


  		





  
  92
  
    
                   (distMCsAsyncTask ents conf_file)


  		





  90
  93
  
    
                   (writeLocksAsyncTask lock_file)


  		





  91
  94
  
    
  dh <- withError (strMsg . ("Initialization of the daemon failed" ++) . show)


  		





  92
  95
  
    
                  dhOpt


  		












Also available in:
  Unified diff