Revision 02cccecd
| b/htools/Ganeti/Objects.hs | ||
|---|---|---|
| 372 | 372 |
, simpleField "primary_ip_family" [t| Int |] |
| 373 | 373 |
, simpleField "prealloc_wipe_disks" [t| Bool |] |
| 374 | 374 |
] |
| 375 |
++ serialFields) |
|
| 375 |
++ serialFields |
|
| 376 |
++ timeStampFields |
|
| 377 |
++ uuidFields |
|
| 378 |
++ tagsFields) |
|
| 376 | 379 |
|
| 377 | 380 |
-- * ConfigData definitions |
| 378 | 381 |
|
| 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