Revision 9c1c3c19 src/Ganeti/Types.hs

b/src/Ganeti/Types.hs
234 234

  
235 235
-- | Cluster verify error codes.
236 236
$(THH.declareSADT "CVErrorCode"
237
  [ ("CvECLUSTERCFG",           'C.cvEclustercfgCode)
238
  , ("CvECLUSTERCERT",          'C.cvEclustercertCode)
239
  , ("CvECLUSTERFILECHECK",     'C.cvEclusterfilecheckCode)
240
  , ("CvECLUSTERDANGLINGNODES", 'C.cvEclusterdanglingnodesCode)
241
  , ("CvECLUSTERDANGLINGINST",  'C.cvEclusterdanglinginstCode)
242
  , ("CvEINSTANCEBADNODE",      'C.cvEinstancebadnodeCode)
243
  , ("CvEINSTANCEDOWN",         'C.cvEinstancedownCode)
244
  , ("CvEINSTANCELAYOUT",       'C.cvEinstancelayoutCode)
245
  , ("CvEINSTANCEMISSINGDISK",  'C.cvEinstancemissingdiskCode)
246
  , ("CvEINSTANCEFAULTYDISK",   'C.cvEinstancefaultydiskCode)
247
  , ("CvEINSTANCEWRONGNODE",    'C.cvEinstancewrongnodeCode)
248
  , ("CvEINSTANCESPLITGROUPS",  'C.cvEinstancesplitgroupsCode)
249
  , ("CvEINSTANCEPOLICY",       'C.cvEinstancepolicyCode)
250
  , ("CvENODEDRBD",             'C.cvEnodedrbdCode)
251
  , ("CvENODEDRBDHELPER",       'C.cvEnodedrbdhelperCode)
252
  , ("CvENODEFILECHECK",        'C.cvEnodefilecheckCode)
253
  , ("CvENODEHOOKS",            'C.cvEnodehooksCode)
254
  , ("CvENODEHV",               'C.cvEnodehvCode)
255
  , ("CvENODELVM",              'C.cvEnodelvmCode)
256
  , ("CvENODEN1",               'C.cvEnoden1Code)
257
  , ("CvENODENET",              'C.cvEnodenetCode)
258
  , ("CvENODEOS",               'C.cvEnodeosCode)
259
  , ("CvENODEORPHANINSTANCE",   'C.cvEnodeorphaninstanceCode)
260
  , ("CvENODEORPHANLV",         'C.cvEnodeorphanlvCode)
261
  , ("CvENODERPC",              'C.cvEnoderpcCode)
262
  , ("CvENODESSH",              'C.cvEnodesshCode)
263
  , ("CvENODEVERSION",          'C.cvEnodeversionCode)
264
  , ("CvENODESETUP",            'C.cvEnodesetupCode)
265
  , ("CvENODETIME",             'C.cvEnodetimeCode)
266
  , ("CvENODEOOBPATH",          'C.cvEnodeoobpathCode)
267
  , ("CvENODEUSERSCRIPTS",      'C.cvEnodeuserscriptsCode)
268
  , ("CvENODEFILESTORAGEPATHS", 'C.cvEnodefilestoragepathsCode)
237
  [ ("CvECLUSTERCFG",                  'C.cvEclustercfgCode)
238
  , ("CvECLUSTERCERT",                 'C.cvEclustercertCode)
239
  , ("CvECLUSTERFILECHECK",            'C.cvEclusterfilecheckCode)
240
  , ("CvECLUSTERDANGLINGNODES",        'C.cvEclusterdanglingnodesCode)
241
  , ("CvECLUSTERDANGLINGINST",         'C.cvEclusterdanglinginstCode)
242
  , ("CvEINSTANCEBADNODE",             'C.cvEinstancebadnodeCode)
243
  , ("CvEINSTANCEDOWN",                'C.cvEinstancedownCode)
244
  , ("CvEINSTANCELAYOUT",              'C.cvEinstancelayoutCode)
245
  , ("CvEINSTANCEMISSINGDISK",         'C.cvEinstancemissingdiskCode)
246
  , ("CvEINSTANCEFAULTYDISK",          'C.cvEinstancefaultydiskCode)
247
  , ("CvEINSTANCEWRONGNODE",           'C.cvEinstancewrongnodeCode)
248
  , ("CvEINSTANCESPLITGROUPS",         'C.cvEinstancesplitgroupsCode)
249
  , ("CvEINSTANCEPOLICY",              'C.cvEinstancepolicyCode)
250
  , ("CvENODEDRBD",                    'C.cvEnodedrbdCode)
251
  , ("CvENODEDRBDHELPER",              'C.cvEnodedrbdhelperCode)
252
  , ("CvENODEFILECHECK",               'C.cvEnodefilecheckCode)
253
  , ("CvENODEHOOKS",                   'C.cvEnodehooksCode)
254
  , ("CvENODEHV",                      'C.cvEnodehvCode)
255
  , ("CvENODELVM",                     'C.cvEnodelvmCode)
256
  , ("CvENODEN1",                      'C.cvEnoden1Code)
257
  , ("CvENODENET",                     'C.cvEnodenetCode)
258
  , ("CvENODEOS",                      'C.cvEnodeosCode)
259
  , ("CvENODEORPHANINSTANCE",          'C.cvEnodeorphaninstanceCode)
260
  , ("CvENODEORPHANLV",                'C.cvEnodeorphanlvCode)
261
  , ("CvENODERPC",                     'C.cvEnoderpcCode)
262
  , ("CvENODESSH",                     'C.cvEnodesshCode)
263
  , ("CvENODEVERSION",                 'C.cvEnodeversionCode)
264
  , ("CvENODESETUP",                   'C.cvEnodesetupCode)
265
  , ("CvENODETIME",                    'C.cvEnodetimeCode)
266
  , ("CvENODEOOBPATH",                 'C.cvEnodeoobpathCode)
267
  , ("CvENODEUSERSCRIPTS",             'C.cvEnodeuserscriptsCode)
268
  , ("CvENODEFILESTORAGEPATHS",        'C.cvEnodefilestoragepathsCode)
269
  , ("CvENODEFILESTORAGEPATHUNUSABLE", 'C.cvEnodefilestoragepathunusableCode)
269 270
  ])
270 271
$(THH.makeJSONInstance ''CVErrorCode)
271 272

  

Also available in: Unified diff