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