Revision 241cea1e src/Ganeti/HTools/Backend/Text.hs

b/src/Ganeti/HTools/Backend/Text.hs
230 230 
  when (sidx == pidx) . fail $ "Instance " ++ name ++
231 231 
           " has same primary and secondary node - " ++ pnode
232 232 
  let vtags = commaSplit tags
233 
      newinst = Instance.create name vmem vdsk vvcpus vstatus vtags
233 
      newinst = Instance.create name vmem vdsk [vdsk] vvcpus vstatus vtags
234 234 
                auto_balance pidx sidx disk_template spindle_use
235 235 
  return (name, newinst)
236 236 

  		












Also available in:
  Unified diff