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

b/src/Ganeti/HTools/Backend/IAlloc.hs
133 133 
  let extract x = tryFromObj ("invalid data for group '" ++ u ++ "'") a x
134 134 
  name <- extract "name"
135 135 
  apol <- extract "alloc_policy"
136 
  nets <- extract "networks"
136 137 
  ipol <- extract "ipolicy"
137 138 
  tags <- extract "tags"
138 
  return (u, Group.create name u apol ipol tags)
139 
  return (u, Group.create name u apol nets ipol tags)
139 140 

  		





  140
  141
  
    
-- | Top-level parser.


  		





  141
  142
  
    
--


  		












Also available in:
  Unified diff