Revision d9d1e541 src/Ganeti/Luxi.hs

b/src/Ganeti/Luxi.hs
163 163 
     , simpleField "prev_log" [t| JSValue |]
164 164 
     , simpleField "tmout"    [t| Int     |]
165 165 
     ])
166 
  , (luxiReqPickupJob,
167 
     [ simpleField "job" [t| JobId |] ]
168 
    )
166 169 
  , (luxiReqArchiveJob,
167 170 
     [ simpleField "job" [t| JobId |] ]
168 171 
    )
......
394 397 
                    J.readJSON e
395 398 
                  _ -> J.Error "Not enough values"
396 399 
              return $ WaitForJobChange jid fields pinfo pidx wtmout
400 
    ReqPickupJob -> do
401 
              [jid] <- fromJVal args
402 
              return $ PickupJob jid
397 403 
    ReqArchiveJob -> do
398 404 
              [jid] <- fromJVal args
399 405 
              return $ ArchiveJob jid

Also available in: Unified diff