Revision 1cea2e1e Ganeti/HTools/Luxi.hs

b/Ganeti/HTools/Luxi.hs
151 151 
getClusterTags v = do
152 152 
  let errmsg = "Parsing cluster info"
153 153 
  obj <- annotateResult errmsg $ asJSObject v
154 
  tags <- tryFromObj errmsg (fromJSObject obj) "tag"
154 
  tags <- tryFromObj errmsg (fromJSObject obj) "tags"
155 155 
  return tags
156 156 

  		





  157
  157
  
    
-- * Main loader functionality


  		












Also available in:
  Unified diff