Revision 2f3a3365

b/src/Ganeti/Objects.hs
514 514
type DiskParams = Container (Container JSValue)
515 515

  
516 516
-- | A mapping from network UUIDs to nic params of the networks.
517
type Networks = Container PartialNic
517
type Networks = Container PartialNicParams
518 518

  
519 519
$(buildObject "NodeGroup" "group" $
520 520
  [ simpleField "name"         [t| String |]
b/test/hs/Test/Ganeti/Objects.hs
365 365
  diskparams <- pure (GenericContainer Map.empty)
366 366
  num_networks <- choose (0, 3)
367 367
  net_uuid_list <- vectorOf num_networks (arbitrary::Gen String)
368
  nic_param_list <- vectorOf num_networks (arbitrary::Gen PartialNic)
368
  nic_param_list <- vectorOf num_networks (arbitrary::Gen PartialNicParams)
369 369
  net_map <- pure (GenericContainer . Map.fromList $
370 370
    zip net_uuid_list nic_param_list)
371 371
  -- timestamp fields

Also available in: Unified diff