Revision 4e4821bd
| b/src/Ganeti/THH.hs | ||
|---|---|---|
| 48 | 48 |
, genLuxiOp |
| 49 | 49 |
, Field (..) |
| 50 | 50 |
, simpleField |
| 51 |
, andRestArguments |
|
| 51 | 52 |
, specialNumericalField |
| 52 | 53 |
, withDoc |
| 53 | 54 |
, defaultField |
| ... | ... | |
| 127 | 128 |
, fieldDoc = "" |
| 128 | 129 |
} |
| 129 | 130 |
|
| 131 |
-- | Generate an AndRestArguments catch-all field. |
|
| 132 |
andRestArguments :: String -> Field |
|
| 133 |
andRestArguments fname = |
|
| 134 |
Field { fieldName = fname
|
|
| 135 |
, fieldType = [t| M.Map String JSON.JSValue |] |
|
| 136 |
, fieldRead = Nothing |
|
| 137 |
, fieldShow = Nothing |
|
| 138 |
, fieldExtraKeys = [] |
|
| 139 |
, fieldDefault = Nothing |
|
| 140 |
, fieldConstr = Nothing |
|
| 141 |
, fieldIsOptional = AndRestArguments |
|
| 142 |
, fieldDoc = "" |
|
| 143 |
} |
|
| 144 |
|
|
| 130 | 145 |
withDoc :: String -> Field -> Field |
| 131 | 146 |
withDoc doc field = |
| 132 | 147 |
field { fieldDoc = doc }
|
Also available in: Unified diff