LGTM, thanks
On Tue, Apr 15, 2014 at 1:36 PM, Klaus Aehlig <[email protected]> wrote: > When queried to WaitForJobChange of an non-existent job, > report this as an error. > > Signed-off-by: Klaus Aehlig <[email protected]> > --- > src/Ganeti/Query/Server.hs | 1 + > 1 file changed, 1 insertion(+) > > diff --git a/src/Ganeti/Query/Server.hs b/src/Ganeti/Query/Server.hs > index db2f7ce..3aa8ed7 100644 > --- a/src/Ganeti/Query/Server.hs > +++ b/src/Ganeti/Query/Server.hs > @@ -284,6 +284,7 @@ handleCall _ _ cfg (WaitForJobChange jid fields > prev_job prev_log tmout) = do > -- verify if the job is finalized, and return immediately in this case > jobresult <- loadJobFromDisk qDir False jid > case jobresult of > + Bad s -> return . Bad $ JobLost s > Ok (job, _) | not (jobFinalized job) -> do > let jobfile = liveJobFile qDir jid > answer <- watchFile jobfile (min tmout C.luxiWfjcTimeout) > -- > 1.9.1.423.g4596e3a > >
