Revision 02cccecd htools/Ganeti/THH.hs

b/htools/Ganeti/THH.hs
47 47 
                  , timeStampFields
48 48 
                  , uuidFields
49 49 
                  , serialFields
50 
                  , tagsFields
50 51 
                  , buildObject
51 52 
                  , buildObjectSerialisation
52 53 
                  , buildParam
......
58 59 
import Data.Char
59 60 
import Data.List
60 61 
import qualified Data.Map as M
62 
import qualified Data.Set as Set
61 63 
import Language.Haskell.TH
62 64 

  		





  63
  65
  
    
import qualified Text.JSON as JSON


  		





  ......




  172
  174
  
    
uuidFields :: [Field]


  		





  173
  175
  
    
uuidFields = [ simpleField "uuid" [t| String |] ]


  		





  174
  176
  
    

  		





  
  177
  
    
-- | Tag field description.


  		





  
  178
  
    
tagsFields :: [Field]


  		





  
  179
  
    
tagsFields = [ defaultField [| Set.empty |] $


  		





  
  180
  
    
               simpleField "tags" [t| Set.Set String |] ]


  		





  
  181
  
    

  		





  175
  182
  
    
-- * Helper functions


  		





  176
  183
  
    

  		





  177
  184
  
    
-- | Ensure first letter is lowercase.


  		












Also available in:
  Unified diff