Revision d5072e4c htools/Ganeti/HTools/Text.hs

b/htools/Ganeti/HTools/Text.hs
7 7 

  		





  8
  8
  
    
{-


  		





  9
  9
  
    

  		





  10
  
  
    
Copyright (C) 2009, 2010 Google Inc.


  		





  
  10
  
    
Copyright (C) 2009, 2010, 2011 Google Inc.


  		





  11
  11
  
    

  		





  12
  12
  
    
This program is free software; you can redistribute it and/or modify


  		





  13
  13
  
    
it under the terms of the GNU General Public License as published by


  		





  ......




  109
  109
  
    
loadGroup :: (Monad m) => [String] -> m (String, Group.Group)


  		





  110
  110
  
    
loadGroup [name, gid, apol] = do


  		





  111
  111
  
    
  xapol <- apolFromString apol


  		





  112
  
  
    
  return $ (gid, Group.create name gid xapol)


  		





  
  112
  
    
  return (gid, Group.create name gid xapol)


  		





  113
  113
  
    

  		





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


  		





  115
  115
  
    

  		












Also available in:
  Unified diff