Revision 9c8c69bc src/Ganeti/Query/Server.hs

b/src/Ganeti/Query/Server.hs
87 87 
handleCall cdata QueryClusterInfo =
88 88 
  let cluster = configCluster cdata
89 89 
      hypervisors = clusterEnabledHypervisors cluster
90 
      storageTypes = clusterEnabledStorageTypes cluster
91 90 
      diskTemplates = clusterEnabledDiskTemplates cluster
92 91 
      def_hv = case hypervisors of
93 92 
                 x:_ -> showJSON x
......
141 140 
               showJSON $ clusterPreallocWipeDisks cluster)
142 141 
            , ("hidden_os", showJSON $ clusterHiddenOs cluster)
143 142 
            , ("blacklisted_os", showJSON $ clusterBlacklistedOs cluster)
144 
            -- FIXME: remove storage types once enabled disk templates are
145 
            -- fully implemented.
146 
            , ("enabled_storage_types", showJSON storageTypes)
147 143 
            , ("enabled_disk_templates", showJSON diskTemplates)
148 144 
            ]
149 145 

  		












Also available in:
  Unified diff