Revision 8a9ee1e9 htools/Ganeti/Luxi.hs
| b/htools/Ganeti/Luxi.hs | ||
|---|---|---|
| 27 | 27 |
|
| 28 | 28 |
module Ganeti.Luxi |
| 29 | 29 |
( LuxiOp(..) |
| 30 |
, QrViaLuxi(..) |
|
| 31 | 30 |
, ResultStatus(..) |
| 32 | 31 |
, LuxiReq(..) |
| 33 | 32 |
, Client |
| ... | ... | |
| 100 | 99 |
-- | The Ganeti job type. |
| 101 | 100 |
type JobId = Int |
| 102 | 101 |
|
| 103 |
$(declareSADT "QrViaLuxi" |
|
| 104 |
[ ("QRLock", 'qrLock)
|
|
| 105 |
, ("QRInstance", 'qrInstance)
|
|
| 106 |
, ("QRNode", 'qrNode)
|
|
| 107 |
, ("QRGroup", 'qrGroup)
|
|
| 108 |
, ("QROs", 'qrOs)
|
|
| 109 |
, ("QRJob", 'qrJob)
|
|
| 110 |
]) |
|
| 111 |
$(makeJSONInstance ''QrViaLuxi) |
|
| 112 |
|
|
| 113 | 102 |
-- | Currently supported Luxi operations and JSON serialization. |
| 114 | 103 |
$(genLuxiOp "LuxiOp" |
| 115 | 104 |
[(luxiReqQuery, |
| 116 |
[ ("what", [t| QrViaLuxi |])
|
|
| 105 |
[ ("what", [t| Qlang.ItemType |])
|
|
| 117 | 106 |
, ("fields", [t| [String] |])
|
| 118 | 107 |
, ("qfilter", [t| Qlang.Filter |])
|
| 119 | 108 |
]) |
Also available in: Unified diff