Revision d2970809
b/htools/Ganeti/Luxi.hs | ||
---|---|---|
324 | 324 |
case call of |
325 | 325 |
ReqQueryJobs -> do |
326 | 326 |
(jids, jargs) <- fromJVal args |
327 |
let rargs = map fromJSString jargs |
|
328 |
return $ QueryJobs jids rargs |
|
327 |
jids' <- case jids of |
|
328 |
JSNull -> return [] |
|
329 |
_ -> fromJVal jids |
|
330 |
return $ QueryJobs jids' jargs |
|
329 | 331 |
ReqQueryInstances -> do |
330 | 332 |
(names, fields, locking) <- fromJVal args |
331 | 333 |
return $ QueryInstances names fields locking |
Also available in: Unified diff