Revision ccf17aa3 src/Ganeti/Types.hs
| b/src/Ganeti/Types.hs | ||
|---|---|---|
| 139 | 139 |
, AdminState(..) |
| 140 | 140 |
, adminStateFromRaw |
| 141 | 141 |
, adminStateToRaw |
| 142 |
, StorageField(..) |
|
| 143 |
, storageFieldToRaw |
|
| 142 | 144 |
) where |
| 143 | 145 |
|
| 144 | 146 |
import Control.Monad (liftM) |
| ... | ... | |
| 745 | 747 |
, ("AdminUp", "up")
|
| 746 | 748 |
]) |
| 747 | 749 |
$(THH.makeJSONInstance ''AdminState) |
| 750 |
|
|
| 751 |
-- * Storage field type |
|
| 752 |
|
|
| 753 |
$(THH.declareLADT ''String "StorageField" |
|
| 754 |
[ ( "SFUsed", "used") |
|
| 755 |
, ( "SFName", "name") |
|
| 756 |
, ( "SFAllocatable", "allocatable") |
|
| 757 |
, ( "SFFree", "free") |
|
| 758 |
, ( "SFSize", "size") |
|
| 759 |
]) |
|
| 760 |
$(THH.makeJSONInstance ''StorageField) |
|
Also available in: Unified diff