Revision 346c3037 src/Ganeti/Luxi.hs

b/src/Ganeti/Luxi.hs
150 150 
  , (luxiReqSubmitJob,
151 151 
     [ simpleField "job" [t| [MetaOpCode] |] ]
152 152 
    )
153 
  , (luxiReqSubmitJobToDrainedQueue,
154 
     [ simpleField "job" [t| [MetaOpCode] |] ]
155 
    )
153 156 
  , (luxiReqSubmitManyJobs,
154 157 
     [ simpleField "ops" [t| [[MetaOpCode]] |] ]
155 158 
    )
......
368 371 
              [ops1] <- fromJVal args
369 372 
              ops2 <- mapM (fromJResult (luxiReqToRaw call) . J.readJSON) ops1
370 373 
              return $ SubmitJob ops2
374 
    ReqSubmitJobToDrainedQueue -> do
375 
              [ops1] <- fromJVal args
376 
              ops2 <- mapM (fromJResult (luxiReqToRaw call) . J.readJSON) ops1
377 
              return $ SubmitJobToDrainedQueue ops2
371 378 
    ReqSubmitManyJobs -> do
372 379 
              [ops1] <- fromJVal args
373 380 
              ops2 <- mapM (fromJResult (luxiReqToRaw call) . J.readJSON) ops1

Also available in: Unified diff