Revision 218e3b0f src/Ganeti/Query/Server.hs

b/src/Ganeti/Query/Server.hs
26 26 
-}
27 27 

  		





  28
  28
  
    
module Ganeti.Query.Server


  		





  29
  
  
    
  ( ConfigReader


  		





  30
  
  
    
  , prepQueryD


  		





  
  29
  
    
  ( prepQueryD


  		





  31
  30
  
    
  , runQueryD


  		





  32
  31
  
    
  ) where


  		





  33
  32
  
    

  		





  ......




  47
  46
  
    
import Ganeti.Daemon


  		





  48
  47
  
    
import Ganeti.Objects


  		





  49
  48
  
    
import qualified Ganeti.Config as Config


  		





  
  49
  
    
import Ganeti.ConfigReader


  		





  50
  50
  
    
import Ganeti.BasicTypes


  		





  51
  51
  
    
import Ganeti.Logging


  		





  52
  52
  
    
import Ganeti.Luxi


  		





  ......




  55
  55
  
    
import Ganeti.Query.Query


  		





  56
  56
  
    
import Ganeti.Query.Filter (makeSimpleFilter)


  		





  57
  57
  
    

  		





  58
  
  
    
-- | A type for functions that can return the configuration when


  		





  59
  
  
    
-- executed.


  		





  60
  
  
    
type ConfigReader = IO (Result ConfigData)


  		





  61
  
  
    

  		





  62
  58
  
    
-- | Helper for classic queries.


  		





  63
  59
  
    
handleClassicQuery :: ConfigData      -- ^ Cluster config


  		





  64
  60
  
    
                   -> Qlang.ItemType  -- ^ Query type


  		












Also available in:
  Unified diff