Revision 6cff91f5 htools/Ganeti/HTools/IAlloc.hs

b/htools/Ganeti/HTools/IAlloc.hs
125 125 
  let extract x = tryFromObj ("invalid data for group '" ++ u ++ "'") a x
126 126 
  name <- extract "name"
127 127 
  apol <- extract "alloc_policy"
128 
  return (u, Group.create name u apol)
128 
  ipol <- extract "ipolicy"
129 
  return (u, Group.create name u apol ipol)
129 130 

  		





  130
  131
  
    
-- | Top-level parser.


  		





  131
  132
  
    
--


  		












Also available in:
  Unified diff