Revision 6d558717 htools/Ganeti/Types.hs
| b/htools/Ganeti/Types.hs | ||
|---|---|---|
| 60 | 60 |
, StorageType(..) |
| 61 | 61 |
, NodeEvacMode(..) |
| 62 | 62 |
, FileDriver(..) |
| 63 |
, InstCreateMode(..) |
|
| 63 | 64 |
) where |
| 64 | 65 |
|
| 65 | 66 |
import qualified Text.JSON as JSON |
| ... | ... | |
| 259 | 260 |
, ("FileBlktap", 'C.fdBlktap)
|
| 260 | 261 |
]) |
| 261 | 262 |
$(THH.makeJSONInstance ''FileDriver) |
| 263 |
|
|
| 264 |
-- | The instance create mode. |
|
| 265 |
$(THH.declareSADT "InstCreateMode" |
|
| 266 |
[ ("InstCreate", 'C.instanceCreate)
|
|
| 267 |
, ("InstImport", 'C.instanceImport)
|
|
| 268 |
, ("InstRemoteImport", 'C.instanceRemoteImport)
|
|
| 269 |
]) |
|
| 270 |
$(THH.makeJSONInstance ''InstCreateMode) |
|
Also available in: Unified diff