Revision ed7f7fd9 src/Ganeti/Rpc.hs
| b/src/Ganeti/Rpc.hs | ||
|---|---|---|
| 610 | 610 |
-- | Set the watcher status |
| 611 | 611 |
|
| 612 | 612 |
$(buildObject "RpcCallSetWatcherPause" "rpcCallSetWatcherPause" |
| 613 |
[ simpleField "time" [t| Maybe Double |]
|
|
| 613 |
[ optionalField $ timeAsDoubleField "time"
|
|
| 614 | 614 |
]) |
| 615 | 615 |
|
| 616 | 616 |
instance RpcCall RpcCallSetWatcherPause where |
| ... | ... | |
| 618 | 618 |
rpcCallTimeout _ = rpcTimeoutToRaw Fast |
| 619 | 619 |
rpcCallAcceptOffline _ = False |
| 620 | 620 |
rpcCallData _ call = J.encode |
| 621 |
[ maybe J.JSNull J.showJSON $ rpcCallSetWatcherPauseTime call ] |
|
| 621 |
[ maybe J.JSNull (J.showJSON . TimeAsDoubleJSON) $ |
|
| 622 |
rpcCallSetWatcherPauseTime call ] |
|
| 622 | 623 |
|
| 623 | 624 |
$(buildObject "RpcResultSetWatcherPause" "rpcResultSetWatcherPause" []) |
| 624 | 625 |
|
Also available in: Unified diff