Revision 434c15d5
b/Ganeti/HTools/QC.hs | ||
---|---|---|
69 | 69 |
pn <- arbitrary |
70 | 70 |
sn <- arbitrary |
71 | 71 |
vcpus <- arbitrary |
72 |
return $ Instance.create name mem dsk vcpus run_st pn sn |
|
72 |
return $ Instance.create name mem dsk vcpus run_st [] pn sn
|
|
73 | 73 |
|
74 | 74 |
-- and a random node |
75 | 75 |
instance Arbitrary Node.Node where |
... | ... | |
199 | 199 |
then sdx + 1 |
200 | 200 |
else sdx |
201 | 201 |
ndx = [(pnode, pdx), (rsnode, rsdx)] |
202 |
tags = "" |
|
202 | 203 |
inst = Text.loadInst ndx |
203 |
[name, mem_s, dsk_s, vcpus_s, status, pnode, rsnode]:: |
|
204 |
[name, mem_s, dsk_s, vcpus_s, status, pnode, rsnode, tags]::
|
|
204 | 205 |
Maybe (String, Instance.Instance) |
205 | 206 |
_types = ( name::String, mem::Int, dsk::Int |
206 | 207 |
, vcpus::Int, status::String |
Also available in: Unified diff