Revision 13d26b66 src/Ganeti/WConfd/Server.hs

b/src/Ganeti/WConfd/Server.hs
43 43 
import Ganeti.UDSServer
44 44 

  		





  45
  45
  
    
import Ganeti.Runtime


  		





  
  46
  
    
import Ganeti.Utils.AsyncWorker


  		





  46
  47
  
    
import Ganeti.WConfd.ConfigState


  		





  47
  48
  
    
import Ganeti.WConfd.Core


  		





  48
  49
  
    
import Ganeti.WConfd.Monad


  		





  ......




  69
  70
  
    
  conf_file <- Path.clusterConfFile


  		





  70
  71
  
    

  		





  71
  72
  
    
  dhOpt <- runResultT $ mkDaemonHandle conf_file mkConfigState emptyAllocation


  		





  
  73
  
    
                                       (const $ mkAsyncWorker (return ()))


  		





  72
  74
  
    
  -- TODO: read current lock allocation from disk


  		





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


  		





  74
  76
  
    
                  dhOpt


  		












Also available in:
  Unified diff