Revision 7dd14211 htools/Ganeti/HTools/Instance.hs

b/htools/Ganeti/HTools/Instance.hs
62 62 
    , dsk          :: Int       -- ^ Disk size of instance
63 63 
    , vcpus        :: Int       -- ^ Number of VCPUs
64 64 
    , running      :: Bool      -- ^ Is the instance running?
65 
    , runSt        :: String    -- ^ Original (text) run status
65 
    , runSt        :: T.InstanceStatus -- ^ Original run status
66 66 
    , pNode        :: T.Ndx     -- ^ Original primary node
67 67 
    , sNode        :: T.Ndx     -- ^ Original secondary node
68 68 
    , idx          :: T.Idx     -- ^ Internal index
......
81 81 
    allNames n = [name n, alias n]
82 82 

  		





  83
  83
  
    
-- | Constant holding the running instance states.


  		





  84
  
  
    
runningStates :: [String]


  		





  85
  
  
    
runningStates = [C.inststRunning, C.inststErrorup]


  		





  
  84
  
    
runningStates :: [T.InstanceStatus]


  		





  
  85
  
    
runningStates = [T.Running, T.ErrorUp]


  		





  86
  86
  
    

  		





  87
  87
  
    
-- | Constant holding the local storage templates.


  		





  88
  88
  
    
--


  		





  ......




  115
  115
  
    
--


  		





  116
  116
  
    
-- Some parameters are not initialized by function, and must be set


  		





  117
  117
  
    
-- later (via 'setIdx' for example).


  		





  118
  
  
    
create :: String -> Int -> Int -> Int -> String


  		





  
  118
  
    
create :: String -> Int -> Int -> Int -> T.InstanceStatus


  		





  119
  119
  
    
       -> [String] -> Bool -> T.Ndx -> T.Ndx -> T.DiskTemplate -> Instance


  		





  120
  120
  
    
create name_init mem_init dsk_init vcpus_init run_init tags_init


  		





  121
  121
  
    
       auto_balance_init pn sn dt =


  		












Also available in:
  Unified diff