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