Revision 17e7af2b Ganeti/HTools/Instance.hs

b/Ganeti/HTools/Instance.hs
56 56 
                         , sNode :: T.Ndx    -- ^ Original secondary node
57 57 
                         , idx :: T.Idx      -- ^ Internal index
58 58 
                         , util :: T.DynUtil -- ^ Dynamic resource usage
59 
                         , tags :: [String]  -- ^ List of instance tags
59 60 
                         } deriving (Show)
60 61 

  		





  61
  62
  
    
instance T.Element Instance where


  		





  ......




  86
  87
  
    
--


  		





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


  		





  88
  89
  
    
-- later (via 'setIdx' for example).


  		





  89
  
  
    
create :: String -> Int -> Int -> Int -> String -> T.Ndx -> T.Ndx -> Instance


  		





  90
  
  
    
create name_init mem_init dsk_init vcpus_init run_init pn sn =


  		





  
  90
  
    
create :: String -> Int -> Int -> Int -> String


  		





  
  91
  
    
       -> [String] -> T.Ndx -> T.Ndx -> Instance


  		





  
  92
  
    
create name_init mem_init dsk_init vcpus_init run_init tags_init pn sn =


  		





  91
  93
  
    
    Instance { name = name_init


  		





  92
  94
  
    
             , mem = mem_init


  		





  93
  95
  
    
             , dsk = dsk_init


  		





  ......




  98
  100
  
    
             , sNode = sn


  		





  99
  101
  
    
             , idx = -1


  		





  100
  102
  
    
             , util = T.baseUtil


  		





  
  103
  
    
             , tags = tags_init


  		





  101
  104
  
    
             }


  		





  102
  105
  
    

  		





  103
  106
  
    
-- | Changes the index.


  		












Also available in:
  Unified diff