Revision fe71113e src/Ganeti/Query/Server.hs

b/src/Ganeti/Query/Server.hs
173 173 
            , ("instance_communication_network",
174 174 
               showJSON (clusterInstanceCommunicationNetwork cluster))
175 175 
            , ("zeroing_image", showJSON $ clusterZeroingImage cluster)
176 
            , ("compression_tools",
177 
               showJSON $ clusterCompressionTools cluster)
176 178 
            ]
177 179 

  		





  178
  180
  
    
  in case master of


  		












Also available in:
  Unified diff