Revision d2970809 htools/Ganeti/Luxi.hs

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