Revision d5af1f95

b/htools/Ganeti/THH.hs
687 687 
                  cons
688 688 
  return $ declD:save_decs ++ req_defs
689 689 

  		





  690
  
  
    
-- | Generates the \"save\" expression for a single luxi parameter.


  		





  691
  
  
    
saveLuxiField :: Name -> SimpleField -> Q Exp


  		





  692
  
  
    
saveLuxiField fvar (_, qt) =


  		





  693
  
  
    
    [| JSON.showJSON $(varE fvar) |]


  		





  694
  
  
    

  		





  695
  690
  
    
-- | Generates the \"save\" clause for entire LuxiOp constructor.


  		





  696
  691
  
    
saveLuxiConstructor :: Constructor -> Q Clause


  		





  697
  692
  
    
saveLuxiConstructor (sname, fields) = do


  		












Also available in:
  Unified diff