Revision 6fadcbab src/Ganeti/Query/Server.hs

b/src/Ganeti/Query/Server.hs
357 357 
                         Right () -> do
358 358 
                           _ <- executeRpcCall mcs
359 359 
                                  $ RpcCallJobqueueRename [(live, archive)]
360 
                          return . Ok $ showJSON True
360 
                           return . Ok $ showJSON True
361 361 
                     else archiveFailed
362 362 

  		





  363
  363
  
    
handleCall _ _ _ op =


  		












Also available in:
  Unified diff