Revision 7dd14211 htools/Ganeti/HTools/IAlloc.hs

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

  		





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


  		





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


  		












Also available in:
  Unified diff