Revision 981bb5cf htools/Ganeti/HTools/Text.hs

b/htools/Ganeti/HTools/Text.hs
226 226 
           " has same primary and secondary node - " ++ pnode
227 227 
  let vtags = commaSplit tags
228 228 
      newinst = Instance.create name vmem vdsk vvcpus vstatus vtags
229 
                auto_balance pidx sidx disk_template
229 
                auto_balance pidx sidx disk_template 1
230 230 
  return (name, newinst)
231 231 
loadInst _ s = fail $ "Invalid/incomplete instance data: '" ++ show s ++ "'"
232 232 

  		












Also available in:
  Unified diff