diff --git a/src/Ganeti/Objects.hs b/src/Ganeti/Objects.hs index 7d13c4c1353680f067e735ecd46b7a8f79a2bedb..f86b54d350d5a7a883958c235f71df34f08c76d2 100644 --- a/src/Ganeti/Objects.hs +++ b/src/Ganeti/Objects.hs @@ -514,7 +514,7 @@ instance TagsObject Node where type DiskParams = Container (Container JSValue) -- | A mapping from network UUIDs to nic params of the networks. -type Networks = Container PartialNic +type Networks = Container PartialNicParams $(buildObject "NodeGroup" "group" $ [ simpleField "name" [t| String |] diff --git a/test/hs/Test/Ganeti/Objects.hs b/test/hs/Test/Ganeti/Objects.hs index 3526902d32581f10bfc69c04d82f1bf282ff67ad..7b05f9e094ae500b209dcc28c68a031d7f284766 100644 --- a/test/hs/Test/Ganeti/Objects.hs +++ b/test/hs/Test/Ganeti/Objects.hs @@ -365,7 +365,7 @@ genNodeGroup = do diskparams <- pure (GenericContainer Map.empty) num_networks <- choose (0, 3) net_uuid_list <- vectorOf num_networks (arbitrary::Gen String) - nic_param_list <- vectorOf num_networks (arbitrary::Gen PartialNic) + nic_param_list <- vectorOf num_networks (arbitrary::Gen PartialNicParams) net_map <- pure (GenericContainer . Map.fromList $ zip net_uuid_list nic_param_list) -- timestamp fields