Revision 9eeb0aa5 htools/Ganeti/Query/Server.hs

b/htools/Ganeti/Query/Server.hs
42 42 
import System.Info (arch)
43 43 

  		





  44
  44
  
    
import qualified Ganeti.Constants as C


  		





  
  45
  
    
import qualified Ganeti.Path as Path


  		





  45
  46
  
    
import Ganeti.Daemon


  		





  46
  47
  
    
import Ganeti.Objects


  		





  47
  48
  
    
import qualified Ganeti.Config as Config


  		





  ......




  197
  198
  
    
-- only one exposed from this module.


  		





  198
  199
  
    
runQueryD :: Maybe FilePath -> ConfigReader -> IO ()


  		





  199
  200
  
    
runQueryD fpath creader = do


  		





  200
  
  
    
  let socket_path = fromMaybe C.querySocket fpath


  		





  
  201
  
    
  let socket_path = fromMaybe Path.defaultQuerySocket fpath


  		





  201
  202
  
    
  cleanupSocket socket_path


  		





  202
  203
  
    
  bracket


  		





  203
  204
  
    
    (getServer socket_path)


  		












Also available in:
  Unified diff