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