Revision 79731e21 src/Ganeti/DataCollectors/InstStatusTypes.hs
| b/src/Ganeti/DataCollectors/InstStatusTypes.hs | ||
|---|---|---|
| 26 | 26 |
|
| 27 | 27 |
module Ganeti.DataCollectors.InstStatusTypes |
| 28 | 28 |
( InstStatus(..) |
| 29 |
, ReportData(..) |
|
| 29 | 30 |
) where |
| 30 | 31 |
|
| 31 | 32 |
|
| ... | ... | |
| 47 | 48 |
, simpleField "state_reason" [t| ReasonTrail |] |
| 48 | 49 |
, simpleField "status" [t| DCStatus |] |
| 49 | 50 |
]) |
| 51 |
|
|
| 52 |
$(buildObject "ReportData" "rData" |
|
| 53 |
[ simpleField "instances" [t| [InstStatus] |] |
|
| 54 |
, simpleField "status" [t| DCStatus |] |
|
| 55 |
]) |
|
Also available in: Unified diff