Revision a46f34d7 Ganeti/HTools/Instance.hs

b/Ganeti/HTools/Instance.hs
39 39 
    , setMovable
40 40 
    , specOf
41 41 
    , shrinkByType
42 
    , runningStates
42 43 
    ) where
43 44 

  		





  44
  45
  
    
import qualified Ganeti.HTools.Types as T


  		





  ......




  77
  78
  
    
unitCpu :: Int


  		





  78
  79
  
    
unitCpu = 1


  		





  79
  80
  
    

  		





  
  81
  
    
-- | Running instance states.


  		





  
  82
  
    
runningStates :: [String]


  		





  
  83
  
    
runningStates = ["running", "ERROR_up"]


  		





  
  84
  
    

  		





  80
  85
  
    
-- | A simple name for the int, instance association list.


  		





  81
  86
  
    
type AssocList = [(T.Idx, Instance)]


  		





  82
  87
  
    

  		





  ......




  96
  101
  
    
             , mem = mem_init


  		





  97
  102
  
    
             , dsk = dsk_init


  		





  98
  103
  
    
             , vcpus = vcpus_init


  		





  99
  
  
    
             , running = run_init == "running" || run_init == "ERROR_up"


  		





  
  104
  
    
             , running = run_init `elem` runningStates


  		





  100
  105
  
    
             , runSt = run_init


  		





  101
  106
  
    
             , pNode = pn


  		





  102
  107
  
    
             , sNode = sn


  		












Also available in:
  Unified diff