Revision a583ec5d htools/Ganeti/OpCodes.hs
| b/htools/Ganeti/OpCodes.hs | ||
|---|---|---|
| 6 | 6 |
|
| 7 | 7 |
{-
|
| 8 | 8 |
|
| 9 |
Copyright (C) 2009, 2010, 2011 Google Inc. |
|
| 9 |
Copyright (C) 2009, 2010, 2011, 2012 Google Inc.
|
|
| 10 | 10 |
|
| 11 | 11 |
This program is free software; you can redistribute it and/or modify |
| 12 | 12 |
it under the terms of the GNU General Public License as published by |
| ... | ... | |
| 29 | 29 |
( OpCode(..) |
| 30 | 30 |
, ReplaceDisksMode(..) |
| 31 | 31 |
, opID |
| 32 |
, allOpIDs |
|
| 32 | 33 |
) where |
| 33 | 34 |
|
| 34 | 35 |
import Text.JSON (readJSON, showJSON, makeObj, JSON) |
| ... | ... | |
| 78 | 79 |
]) |
| 79 | 80 |
]) |
| 80 | 81 |
|
| 82 |
-- | Returns the OP_ID for a given opcode value. |
|
| 81 | 83 |
$(genOpID ''OpCode "opID") |
| 82 | 84 |
|
| 85 |
-- | A list of all defined/supported opcode IDs. |
|
| 86 |
$(genAllOpIDs ''OpCode "allOpIDs") |
|
| 87 |
|
|
| 83 | 88 |
instance JSON OpCode where |
| 84 | 89 |
readJSON = loadOpCode |
| 85 | 90 |
showJSON = saveOpCode |
Also available in: Unified diff