Add a network fields to NIC params and node group type

This adds a network field to the NIC params and a list of networks
to the node group type. It adjusts the nodegroup's unit tests accordingly.

Signed-off-by: Helga Velroyen <helgav@google.com>
Reviewed-by: Iustin Pop <iustin@google.com>

htest/Test/Ganeti/Objects.hs

@@ -131,6 +131,7 @@ $(genArbitrary ''PartialIPolicy)
 instance Arbitrary NodeGroup where
   arbitrary = NodeGroup <$> genFQDN <*> pure [] <*> arbitrary <*> arbitrary
                         <*> arbitrary <*> pure (GenericContainer Map.empty)
+                        <*> arbitrary
                         -- ts
                         <*> arbitrary <*> arbitrary
                         -- uuid

htools/Ganeti/Objects.hs

@@ -212,6 +212,7 @@ $(buildObject "PartialNic" "nic"
   [ simpleField "mac" [t| String |]
   , optionalField $ simpleField "ip" [t| String |]
   , simpleField "nicparams" [t| PartialNicParams |]
+  , optionalField $ simpleField "network" [t| Network |]
   ])
 
 -- * Disk definitions
@@ -502,11 +503,12 @@ type DiskParams = Container (Container JSValue)
 
 $(buildObject "NodeGroup" "group" $
   [ simpleField "name"         [t| String |]
-  , defaultField  [| [] |] $ simpleField "members" [t| [String] |]
+  , defaultField [| [] |] $ simpleField "members" [t| [String] |]
   , simpleField "ndparams"     [t| PartialNDParams |]
   , simpleField "alloc_policy" [t| AllocPolicy     |]
   , simpleField "ipolicy"      [t| PartialIPolicy  |]
   , simpleField "diskparams"   [t| DiskParams      |]
+  , defaultField [| [] |] $ simpleField "networks" [t| [Network] |]
   ]
   ++ timeStampFields
   ++ uuidFields