Revision 58b37916 src/Ganeti/OpCodes.hs
| b/src/Ganeti/OpCodes.hs | ||
|---|---|---|
| 1035 | 1035 |
-- | JSON serialisation for 'MetaOpCode'. |
| 1036 | 1036 |
showMeta :: MetaOpCode -> JSValue |
| 1037 | 1037 |
showMeta (MetaOpCode params op) = |
| 1038 |
let objparams = toDictCommonOpParams params
|
|
| 1038 |
let objparams = toDict params |
|
| 1039 | 1039 |
objop = toDictOpCode op |
| 1040 | 1040 |
in makeObj (objparams ++ objop) |
| 1041 | 1041 |
|
Also available in: Unified diff