Revision c65621d7 htools/Ganeti/Types.hs
| b/htools/Ganeti/Types.hs | ||
|---|---|---|
| 59 | 59 |
, OobCommand(..) |
| 60 | 60 |
, StorageType(..) |
| 61 | 61 |
, NodeEvacMode(..) |
| 62 |
, FileDriver(..) |
|
| 62 | 63 |
) where |
| 63 | 64 |
|
| 64 | 65 |
import qualified Text.JSON as JSON |
| ... | ... | |
| 251 | 252 |
, ("NEvacAll", 'C.iallocatorNevacAll)
|
| 252 | 253 |
]) |
| 253 | 254 |
$(THH.makeJSONInstance ''NodeEvacMode) |
| 255 |
|
|
| 256 |
-- | The file driver type. |
|
| 257 |
$(THH.declareSADT "FileDriver" |
|
| 258 |
[ ("FileLoop", 'C.fdLoop)
|
|
| 259 |
, ("FileBlktap", 'C.fdBlktap)
|
|
| 260 |
]) |
|
| 261 |
$(THH.makeJSONInstance ''FileDriver) |
|
Also available in: Unified diff