Revision 525bfb36 htools/Ganeti/HTools/IAlloc.hs

b/htools/Ganeti/HTools/IAlloc.hs
60 60 
  let running = "running"
61 61 
  return (n, Instance.create n mem disk vcpus running tags True 0 0)
62 62 

  		





  63
  
  
    
-- | Parses an instance as found in the cluster instance listg.


  		





  
  63
  
    
-- | Parses an instance as found in the cluster instance list.


  		





  64
  64
  
    
parseInstance :: NameAssoc -- ^ The node name-to-index association list


  		





  65
  65
  
    
              -> String    -- ^ The name of the instance


  		





  66
  66
  
    
              -> JSRecord  -- ^ The JSON object


  		












Also available in:
  Unified diff