Revision 95d0d502 htools/Ganeti/THH.hs

b/htools/Ganeti/THH.hs
543 543 
            cons
544 544 
  let declD = DataD [] (mkName name) [] decl_d [''Show, ''Read]
545 545 
  (savesig, savefn) <- genSaveLuxiOp cons
546 
  return [declD, savesig, savefn]
546 
  req_defs <- declareSADT "LuxiReq" .
547 
              map (\(str, _) -> ("Req" ++ str, mkName ("luxiReq" ++ str))) $
548 
                  cons
549 
  return $ [declD, savesig, savefn] ++ req_defs
547 550 

  		





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


  		





  549
  552
  
    
saveLuxiField :: Name -> LuxiParam -> Q Exp


  		












Also available in:
  Unified diff