Revision d25643d1 htools/Ganeti/HTools/IAlloc.hs

b/htools/Ganeti/HTools/IAlloc.hs
67 67 
  vcpus <- extract "vcpus"
68 68 
  tags  <- extract "tags"
69 69 
  let running = "running"
70 
  return (n, Instance.create n mem disk vcpus running tags True 0 0)
70 
  return (n, Instance.create n mem disk vcpus running tags True 0 0 DTDrbd8)
71 71 

  		





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


  		





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


  		












Also available in:
  Unified diff