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