Revision b003b8c0 htools/Ganeti/HTools/IAlloc.hs

b/htools/Ganeti/HTools/IAlloc.hs
70 70 
  vcpus <- extract "vcpus"
71 71 
  tags  <- extract "tags"
72 72 
  dt    <- extract "disk_template"
73 
  return (n, Instance.create n mem disk vcpus Running tags True 0 0 dt 1)
73 
  su    <- extract "spindle_usage"
74 
  return (n, Instance.create n mem disk vcpus Running tags True 0 0 dt su)
74 75 

  		





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


  		





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


  		












Also available in:
  Unified diff