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