Revision 557f5dad src/Ganeti/Rpc.hs

b/src/Ganeti/Rpc.hs
567 567
  , simpleField "content" [t| String |]
568 568
  ])
569 569

  
570
$(buildObject "RpcResultJobQueueUpdate" "rpcResultJobQueueUpdate" [])
571

  
570 572
instance RpcCall RpcCallJobqueueUpdate where
571 573
  rpcCallName _          = "jobqueue_update"
572 574
  rpcCallTimeout _       = rpcTimeoutToRaw Fast
......
579 581
      )
580 582
    )
581 583

  
582
instance Rpc RpcCallJobqueueUpdate () where
584
instance Rpc RpcCallJobqueueUpdate RpcResultJobQueueUpdate where
583 585
  rpcResultFill _ res =
584 586
    case res of
585
      J.JSNull ->  Right ()
587
      J.JSNull ->  Right RpcResultJobQueueUpdate
586 588
      _ -> Left $ JsonDecodeError
587 589
           ("Expected JSNull, got " ++ show (pp_value res))
588 590

  

Also available in: Unified diff