Revision 9924d61e htools/Ganeti/THH.hs
| b/htools/Ganeti/THH.hs | ||
|---|---|---|
| 48 | 48 |
, uuidFields |
| 49 | 49 |
, serialFields |
| 50 | 50 |
, tagsFields |
| 51 |
, TagSet |
|
| 51 | 52 |
, buildObject |
| 52 | 53 |
, buildObjectSerialisation |
| 53 | 54 |
, buildParam |
| ... | ... | |
| 171 | 172 |
uuidFields :: [Field] |
| 172 | 173 |
uuidFields = [ simpleField "uuid" [t| String |] ] |
| 173 | 174 |
|
| 175 |
-- | Tag set type alias. |
|
| 176 |
type TagSet = Set.Set String |
|
| 177 |
|
|
| 174 | 178 |
-- | Tag field description. |
| 175 | 179 |
tagsFields :: [Field] |
| 176 | 180 |
tagsFields = [ defaultField [| Set.empty |] $ |
| 177 |
simpleField "tags" [t| Set.Set String |] ]
|
|
| 181 |
simpleField "tags" [t| TagSet |] ]
|
|
| 178 | 182 |
|
| 179 | 183 |
-- * Helper functions |
| 180 | 184 |
|
Also available in: Unified diff