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

b/htools/Ganeti/HTools/Luxi.hs
115 115 
-- | The input data for node group query.
116 116 
queryGroupsMsg :: L.LuxiOp
117 117 
queryGroupsMsg =
118 
  L.Query L.QRGroup ["uuid", "name", "alloc_policy"] ()
118 
  L.Query L.QRGroup ["uuid", "name", "alloc_policy", "ipolicy"] ()
119 119 

  		





  120
  120
  
    
-- | Wraper over 'callMethod' doing node query.


  		





  121
  121
  
    
queryNodes :: L.Client -> IO (Result JSValue)


  		





  ......




  215
  215
  
    

  		





  216
  216
  
    
-- | Parses a given group information.


  		





  217
  217
  
    
parseGroup :: [(JSValue, JSValue)] -> Result (String, Group.Group)


  		





  218
  
  
    
parseGroup [uuid, name, apol] = do


  		





  
  218
  
    
parseGroup [uuid, name, apol, ipol] = do


  		





  219
  219
  
    
  xname <- annotateResult "Parsing new group" (fromJValWithStatus name)


  		





  220
  220
  
    
  let convert a = genericConvert "Group" xname a


  		





  221
  221
  
    
  xuuid <- convert "uuid" uuid


  		





  222
  222
  
    
  xapol <- convert "alloc_policy" apol


  		





  223
  
  
    
  return (xuuid, Group.create xname xuuid xapol)


  		





  
  223
  
    
  xipol <- convert "ipolicy" ipol


  		





  
  224
  
    
  return (xuuid, Group.create xname xuuid xapol xipol)


  		





  224
  225
  
    

  		





  225
  226
  
    
parseGroup v = fail ("Invalid group query result: " ++ show v)


  		





  226
  227
  
    

  		












Also available in:
  Unified diff