Revision 6bc39970 Ganeti/HTools/Cluster.hs

b/Ganeti/HTools/Cluster.hs
51 51 
    , doNextBalance
52 52 
    , tryBalance
53 53 
    , compCV
54 
    , compDetailedCV
54 55 
    , printStats
55 56 
    , iMoveToJob
56 57 
    -- * IAllocator functions
......
102 103 

  		





  103
  104
  
    
-- | The complete state for the balancing solution


  		





  104
  105
  
    
data Table = Table Node.List Instance.List Score [Placement]


  		





  105
  
  
    
             deriving (Show)


  		





  
  106
  
    
             deriving (Show, Read)


  		





  106
  107
  
    

  		





  107
  108
  
    
data CStats = CStats { csFmem :: Int    -- ^ Cluster free mem


  		





  108
  109
  
    
                     , csFdsk :: Int    -- ^ Cluster free disk


  		





  ......




  126
  127
  
    
                     , csScore :: Score -- ^ The cluster score


  		





  127
  128
  
    
                     , csNinst :: Int   -- ^ The total number of instances


  		





  128
  129
  
    
                     }


  		





  129
  
  
    
            deriving (Show)


  		





  
  130
  
    
            deriving (Show, Read)


  		





  130
  131
  
    

  		





  131
  132
  
    
-- | Currently used, possibly to allocate, unallocable


  		





  132
  133
  
    
type AllocStats = (RSpec, RSpec, RSpec)


  		












Also available in:
  Unified diff