Revision 981bb5cf 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)
73 
  return (n, Instance.create n mem disk vcpus Running tags True 0 0 dt 1)
74 74 

  		





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


  		





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


  		












Also available in:
  Unified diff