Revision c8b199db src/Ganeti/HTools/Backend/Rapi.hs

b/src/Ganeti/HTools/Backend/Rapi.hs
179 179 
  apol <- extract "alloc_policy"
180 180 
  ipol <- extract "ipolicy"
181 181 
  tags <- extract "tags"
182 
  return (uuid, Group.create name uuid apol ipol tags)
182 
  -- TODO: parse networks to which this group is connected
183 
  return (uuid, Group.create name uuid apol [] ipol tags)
183 184 

  		





  184
  185
  
    
-- | Parse cluster data from the info resource.


  		





  185
  186
  
    
parseCluster :: JSObject JSValue -> Result ([String], IPolicy, String)


  		












Also available in:
  Unified diff