Revision e713a686
b/src/Ganeti/OpCodes.hs | ||
---|---|---|
34 | 34 |
, mkDiskIndex |
35 | 35 |
, unDiskIndex |
36 | 36 |
, opID |
37 |
, opReasonSrcID |
|
37 | 38 |
, allOpIDs |
38 | 39 |
, allOpFields |
39 | 40 |
, opSummary |
... | ... | |
914 | 915 |
-- | A list of all defined/supported opcode IDs. |
915 | 916 |
$(genAllOpIDs ''OpCode "allOpIDs") |
916 | 917 |
|
918 |
-- | Convert the opcode name to lowercase with underscores and strip |
|
919 |
-- the @Op@ prefix. |
|
920 |
$(genOpLowerStrip (C.opcodeReasonSrcOpcode ++ ":") ''OpCode "opReasonSrcID") |
|
921 |
|
|
917 | 922 |
instance JSON OpCode where |
918 | 923 |
readJSON = loadOpCode |
919 | 924 |
showJSON = saveOpCode |
Also available in: Unified diff