Make hv and disk states default unserializable fields in haskell objects in order to make them consistent with corresponding fields in python objects.
Signed-off-by: Oleg Ponomarev <[email protected]> --- src/Ganeti/Objects.hs | 12 ++++++------ 1 file changed, 6 insertions(+), 6 deletions(-) diff --git a/src/Ganeti/Objects.hs b/src/Ganeti/Objects.hs index 9c6a3d5..4e43c56 100644 --- a/src/Ganeti/Objects.hs +++ b/src/Ganeti/Objects.hs @@ -425,9 +425,9 @@ $(buildObject "Node" "node" $ , simpleField "vm_capable" [t| Bool |] , simpleField "ndparams" [t| PartialNDParams |] , simpleField "powered" [t| Bool |] - , defaultField [| emptyContainer |] $ + , unserializableDefaultField [| emptyContainer |] $ simpleField "hv_state_static" [t| PartialHvState |] - , defaultField [| emptyContainer |] $ + , unserializableDefaultField [| emptyContainer |] $ simpleField "disk_state_static" [t| DiskState |] ] ++ timeStampFields @@ -464,9 +464,9 @@ $(buildObject "NodeGroup" "group" $ , simpleField "ipolicy" [t| PartialIPolicy |] , simpleField "diskparams" [t| GroupDiskParams |] , simpleField "networks" [t| Networks |] - , defaultField [| emptyContainer |] $ + , unserializableDefaultField [| emptyContainer |] $ simpleField "hv_state_static" [t| PartialHvState |] - , defaultField [| emptyContainer |] $ + , unserializableDefaultField [| emptyContainer |] $ simpleField "disk_state_static" [t| DiskState |] ] ++ timeStampFields @@ -676,9 +676,9 @@ $(buildObject "Cluster" "cluster" $ , simpleField "primary_ip_family" [t| IpFamily |] , simpleField "prealloc_wipe_disks" [t| Bool |] , simpleField "ipolicy" [t| FilledIPolicy |] - , defaultField [| emptyContainer |] $ + , unserializableDefaultField [| emptyContainer |] $ simpleField "hv_state_static" [t| FilledHvState |] - , defaultField [| emptyContainer |] $ + , unserializableDefaultField [| emptyContainer |] $ simpleField "disk_state_static" [t| DiskState |] , simpleField "enabled_disk_templates" [t| [DiskTemplate] |] , simpleField "candidate_certs" [t| CandidateCertificates |] -- 2.6.0.rc2.230.g3dd15c0
