Revision 525bfb36 htools/Ganeti/Luxi.hs
| b/htools/Ganeti/Luxi.hs | ||
|---|---|---|
| 161 | 161 |
writeIORef (rbuf s) nbuf |
| 162 | 162 |
return msg |
| 163 | 163 |
|
| 164 |
-- | Compute the serialized form of a Luxi operation |
|
| 164 |
-- | Compute the serialized form of a Luxi operation.
|
|
| 165 | 165 |
opToArgs :: LuxiOp -> JSValue |
| 166 | 166 |
opToArgs (QueryNodes names fields lock) = J.showJSON (names, fields, lock) |
| 167 | 167 |
opToArgs (QueryGroups names fields lock) = J.showJSON (names, fields, lock) |
Also available in: Unified diff