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

b/htools/Ganeti/HTools/Text.hs
119 119 
                                     -- UUID and group object
120 120 
loadGroup [name, gid, apol] = do
121 121 
  xapol <- allocPolicyFromRaw apol
122 
  return (gid, Group.create name gid xapol)
122 
  return (gid, Group.create name gid xapol defIPolicy)
123 123 

  		





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


  		





  125
  125
  
    

  		












Also available in:
  Unified diff