Revision d752eb39 Ganeti/HTools/IAlloc.hs

b/Ganeti/HTools/IAlloc.hs
51 51 
parseBaseInstance n a = do
52 52 
  disk <- fromObj "disk_space_total" a
53 53 
  mem <- fromObj "memory" a
54 
  vcpus <- fromObj "vcpus" a
54 55 
  let running = "running"
55 
  return $ (n, Instance.create n mem disk running 0 0)
56 
  return $ (n, Instance.create n mem disk vcpus running 0 0)
56 57 

  		





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


  		





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


  		












Also available in:
  Unified diff