Revision 64b0309a src/Ganeti/Query/Server.hs

b/src/Ganeti/Query/Server.hs
116 116 
            , ("master_netmask", showJSON $ clusterMasterNetmask cluster)
117 117 
            , ("use_external_mip_script",
118 118 
               showJSON $ clusterUseExternalMipScript cluster)
119 
            , ("volume_group_name", showJSON $ clusterVolumeGroupName cluster)
119 
            , ("volume_group_name",
120 
               maybe JSNull showJSON (clusterVolumeGroupName cluster))
120 121 
            , ("drbd_usermode_helper",
121 122 
               maybe JSNull showJSON (clusterDrbdUsermodeHelper cluster))
122 123 
            , ("file_storage_dir", showJSON $ clusterFileStorageDir cluster)

Also available in: Unified diff