Revision 774867f2 src/Ganeti/Types.hs

b/src/Ganeti/Types.hs
78 78
  , hypervisorToRaw
79 79
  , OobCommand(..)
80 80
  , oobCommandToRaw
81
  , OobStatus(..)
82
  , oobStatusToRaw
81 83
  , StorageType(..)
82 84
  , storageTypeToRaw
83 85
  , NodeEvacMode(..)
......
399 401
  ])
400 402
$(THH.makeJSONInstance ''OobCommand)
401 403

  
404
-- | Oob command status
405
$(THH.declareLADT ''String "OobStatus"
406
  [ ("OobStatusCritical", "CRITICAL")
407
  , ("OobStatusOk",       "OK")
408
  , ("OobStatusUnknown",  "UNKNOWN")
409
  , ("OobStatusWarning",  "WARNING")
410
  ])
411
$(THH.makeJSONInstance ''OobStatus)
412

  
402 413
-- | Storage type.
403 414
$(THH.declareLADT ''String "StorageType"
404 415
  [ ("StorageFile", "file")

Also available in: Unified diff