Revision c352b0a9 htools/Ganeti/HTools/Text.hs
b/htools/Ganeti/HTools/Text.hs | ||
---|---|---|
144 | 144 |
when (sidx == pidx) $ fail $ "Instance " ++ name ++ |
145 | 145 |
" has same primary and secondary node - " ++ pnode |
146 | 146 |
let vtags = sepSplit ',' tags |
147 |
newinst = Instance.create name vmem vdsk vvcpus status vtags pidx sidx |
|
147 |
newinst = Instance.create name vmem vdsk vvcpus status vtags |
|
148 |
True pidx sidx |
|
148 | 149 |
return (name, newinst) |
149 | 150 |
loadInst _ s = fail $ "Invalid/incomplete instance data: '" ++ show s ++ "'" |
150 | 151 |
|
Also available in: Unified diff