Revision 966e1580 src/Ganeti/Query/Server.hs

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

  		





  146
  150
  
    
  in return . Ok . J.makeObj $ obj


  		












Also available in:
  Unified diff