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

b/src/Ganeti/HTools/Backend/Luxi.hs
234 234 
  xapol <- convert "alloc_policy" apol
235 235 
  xipol <- convert "ipolicy" ipol
236 236 
  xtags <- convert "tags" tags
237 
  return (xuuid, Group.create xname xuuid xapol xipol xtags)
237 
  -- TODO: parse networks to which this group is connected
238 
  return (xuuid, Group.create xname xuuid xapol [] xipol xtags)
238 239 

  		





  239
  240
  
    
parseGroup v = fail ("Invalid group query result: " ++ show v)


  		





  240
  241
  
    

  		












Also available in:
  Unified diff