Revision ab0edd8b htools/Ganeti/THH.hs

b/htools/Ganeti/THH.hs
146 146 
loadFn (Field { fieldRead = Just readfn }) expr = [| $expr >>= $readfn |]
147 147 
loadFn _ expr = expr
148 148 

  		





  149
  
  
    
saveFn :: Field -> Q Exp -> Q Exp


  		





  150
  
  
    
saveFn (Field { fieldIsContainer = True }) expr = [| showContainer $expr |]


  		





  151
  
  
    
saveFn (Field { fieldRead = Just readfn }) expr = [| $readfn $expr |]


  		





  152
  
  
    
saveFn _ expr = expr


  		





  153
  149
  
    

  		





  154
  150
  
    
-- * Common field declarations


  		





  155
  151
  
    

  		












Also available in:
  Unified diff