Revision c352b0a9 htools/Ganeti/HTools/IAlloc.hs

b/htools/Ganeti/HTools/IAlloc.hs
57 57 
  vcpus <- extract "vcpus"
58 58 
  tags  <- extract "tags"
59 59 
  let running = "running"
60 
  return (n, Instance.create n mem disk vcpus running tags 0 0)
60 
  return (n, Instance.create n mem disk vcpus running tags True 0 0)
61 61 

  		





  62
  62
  
    
-- | Parses an instance as found in the cluster instance listg.


  		





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


  		












Also available in:
  Unified diff