On Mon, Mar 3, 2014 at 2:48 PM, Klaus Aehlig <[email protected]> wrote:
> Export the functionality to export all locks to a given set. > The second 'export' is probably a typo, should be "restrict", "limit" or something like that. > > Signed-off-by: Klaus Aehlig <[email protected]> > --- > src/Ganeti/WConfd/Core.hs | 6 ++++++ > 1 file changed, 6 insertions(+) > > diff --git a/src/Ganeti/WConfd/Core.hs b/src/Ganeti/WConfd/Core.hs > index 190e804..0c2ac6c 100644 > --- a/src/Ganeti/WConfd/Core.hs > +++ b/src/Ganeti/WConfd/Core.hs > @@ -72,6 +72,11 @@ freeLocks :: JobId -> FilePath -> WConfdMonad () > freeLocks jid fpath = > modifyLockAllocation_ (`L.freeLocks` (jid, fpath)) > > +-- | Intersect the possesed locks of an owner with a given set. > +intersectLocks :: JobId -> FilePath -> [GanetiLocks] -> WConfdMonad () > +intersectLocks jid fpath = > + modifyLockAllocation_ . L.intersectLocks (jid,fpath) > + > -- * The list of all functions exported to RPC. > > exportedFunctions :: [Name] > @@ -81,4 +86,5 @@ exportedFunctions = [ 'echo > , 'listLocks > , 'updateLocks > , 'freeLocks > + , 'intersectLocks > ] > -- > 1.9.0.279.gdc9e3eb > >
