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

b/src/Ganeti/HTools/Backend/Text.hs
185 185 
loadGroup [name, gid, apol, tags] = do
186 186 
  xapol <- allocPolicyFromRaw apol
187 187 
  let xtags = commaSplit tags
188 
  return (gid, Group.create name gid xapol defIPolicy xtags)
188 
  -- TODO: parse networks to which this group is connected
189 
  return (gid, Group.create name gid xapol [] defIPolicy xtags)
189 190 

  		





  190
  191
  
    
loadGroup s = fail $ "Invalid/incomplete group data: '" ++ show s ++ "'"


  		





  191
  192
  
    

  		












Also available in:
  Unified diff