LGTM
On Wed, Jun 4, 2014 at 10:20 AM, 'Klaus Aehlig' via ganeti-devel < [email protected]> wrote: > ...so that owners can ask if their request got > granted already. > > Signed-off-by: Klaus Aehlig <[email protected]> > --- > src/Ganeti/WConfd/Core.hs | 5 +++++ > 1 file changed, 5 insertions(+) > > diff --git a/src/Ganeti/WConfd/Core.hs b/src/Ganeti/WConfd/Core.hs > index 90504a2..c8574db 100644 > --- a/src/Ganeti/WConfd/Core.hs > +++ b/src/Ganeti/WConfd/Core.hs > @@ -189,6 +189,10 @@ tryUpdateLocks cid req = > . (>>= toErrorStr) > $ modifyLockWaiting (LW.updateLocks cid (fromGanetiLockRequest req)) > > +-- | Tell whether a given owner has pending requests. > +hasPendingRequest :: ClientId -> WConfdMonad Bool > +hasPendingRequest cid = liftM (LW.hasPendingRequest cid) readLockWaiting > + > -- | Free all locks of a given owner (i.e., a job-id lockfile pair). > freeLocks :: ClientId -> WConfdMonad () > freeLocks cid = > @@ -247,4 +251,5 @@ exportedFunctions = [ 'echo > , 'downGradeLocksLevel > , 'intersectLocks > , 'opportunisticLockUnion > + , 'hasPendingRequest > ] > -- > 1.9.1.423.g4596e3a > >
